diff options
Diffstat (limited to 't/file.t')
-rw-r--r-- | t/file.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/file.t b/t/file.t new file mode 100644 index 0000000..d7c4f53 --- /dev/null +++ b/t/file.t @@ -0,0 +1,15 @@ +BEGIN {print "1..2\n";} +END {print "not ok 1\n" unless $loaded;} +use XML::Parser; +$loaded = 1; +print "ok 1\n"; + +my $count = 0; + +$parser = new XML::Parser(ErrorContext => 2); +$parser->setHandlers(Comment => sub {$count++;}); + +$parser->parsefile('samples/REC-xml-19980210.xml'); + +print "not " unless $count == 37; +print "ok 2\n"; |