Imported from /home/lorry/working-area/delta_perl-xml-parser/XML-Parser-2.36.tar.gz.HEADXML-Parser-2.36master

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";