diff options
author | Bo Yang <struggleyb.nku@gmail.com> | 2009-08-11 11:17:23 +0000 |
---|---|---|
committer | Bo Yang <struggleyb.nku@gmail.com> | 2009-08-11 11:17:23 +0000 |
commit | 399da01ae4eb5c5e3e9349bacc2063c946c3d4a1 (patch) | |
tree | 433c8bcde94fc7a6e6f2e5cbf23842a84db98146 /test/transform.pl | |
parent | eec057c7437e19b59ca1e698ce548cb56ce37240 (diff) | |
download | libdom-399da01ae4eb5c5e3e9349bacc2063c946c3d4a1.tar.gz libdom-399da01ae4eb5c5e3e9349bacc2063c946c3d4a1.tar.bz2 |
Merge the branches/struggleyb/libdom-remain back to trunk.
svn path=/trunk/dom/; revision=9191
Diffstat (limited to 'test/transform.pl')
-rwxr-xr-x | test/transform.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/transform.pl b/test/transform.pl new file mode 100755 index 0000000..4ab0b46 --- /dev/null +++ b/test/transform.pl @@ -0,0 +1,21 @@ +#!/bin/perl +# This file is part of libdom. +# It is used to generate libdom test files from the W3C DOMTS. +# +# Licensed under the MIT License, +# http://www.opensource.org/licenses/mit-license.php +# Author: Bo Yang <struggleyb.nku@gmail.com> + +use warnings; +use strict; + +use XML::Parser::PerlSAX; +use DOMTSHandler; + +if ($#ARGV ne 1) { + die "Usage: perl transform.pl dtd-file testcase-file"; +} + +my $handler = DOMTSHandler->new($ARGV[0]); +my $parser = XML::Parser::PerlSAX->new(Handler => $handler); +$parser->parse(Source => {SystemId => "$ARGV[1]"}); |