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

1 files changed, 32 insertions, 0 deletions

diff --git a/t/finish.t b/t/finish.t
new file mode 100644
index 0000000..45cd86c
--- /dev/null
+++ b/t/finish.t
@@ -0,0 +1,32 @@
+BEGIN {print "1..3\n";}
+END {print "not ok 1\n" unless $loaded;}
+use XML::Parser;
+$loaded = 1;
+print "ok 1\n";
+
+my $stcount = 0;
+my $encount = 0;
+
+sub st {
+  my ($exp, $el) = @_;
+  $stcount++;
+  $exp->finish if $el eq 'loc';
+}
+
+sub end {
+  $encount++;
+}
+
+$parser = new XML::Parser(Handlers => {Start => \&st,
+				       End   => \&end
+				      },
+			  ErrorContext => 2);
+
+
+$parser->parsefile('samples/REC-xml-19980210.xml');
+
+print "not " unless $stcount == 12;
+print "ok 2\n";
+
+print "not " unless $encount == 8;
+print "ok 3\n";