diff options
author | Daniel Silverstone <dsilvers@netsurf-browser.org> | 2010-12-04 23:12:24 +0000 |
---|---|---|
committer | Daniel Silverstone <dsilvers@netsurf-browser.org> | 2010-12-04 23:12:24 +0000 |
commit | d3e20391aac5f121b577cfb897c14c70d54eeee7 (patch) | |
tree | 20fde4d3d12c66ee9520cdb2f7ed6a76fb1ca48f /test/transform.pl | |
parent | 236b28d43874cd7cc4288f43a73292bf2755a3af (diff) | |
download | libdom-d3e20391aac5f121b577cfb897c14c70d54eeee7.tar.gz libdom-d3e20391aac5f121b577cfb897c14c70d54eeee7.tar.bz2 |
Make libdom work again given lack of init/finalise in hubbub and prepare initial attempt at importing tests into the makefile
svn path=/trunk/dom/; revision=10992
Diffstat (limited to 'test/transform.pl')
-rwxr-xr-x | test/transform.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/transform.pl b/test/transform.pl index 74d2f61..0c11d61 100755 --- a/test/transform.pl +++ b/test/transform.pl @@ -9,13 +9,15 @@ use warnings; use strict; +use lib qw(test); + use XML::Parser::PerlSAX; use DOMTSHandler; -if ($#ARGV ne 1) { - die "Usage: perl transform.pl dtd-file testcase-file"; +if ($#ARGV ne 2) { + die "Usage: perl transform.pl dtd-file testcase basedir testcase-file"; } -my $handler = DOMTSHandler->new($ARGV[0]); +my $handler = DOMTSHandler->new($ARGV[0], $ARGV[1]); my $parser = XML::Parser::PerlSAX->new(Handler => $handler); -$parser->parse(Source => {SystemId => "$ARGV[1]"}); +$parser->parse(Source => {SystemId => "$ARGV[2]"}); |