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 | 64e9feb8d0e62a4428d1db7a18cf00fdc2917252 (patch) | |
tree | 20fde4d3d12c66ee9520cdb2f7ed6a76fb1ca48f /test/transform.pl | |
parent | a52bcd7b8a077fc39cc75b12a63e49397d5e891f (diff) | |
download | libdom-64e9feb8d0e62a4428d1db7a18cf00fdc2917252.tar.gz libdom-64e9feb8d0e62a4428d1db7a18cf00fdc2917252.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]"}); |