I'm adding a second patch that has to be applied after the above, which increases tests by
testing what the diag messages seemed to be implying you intended to test
diff --git a/t/02parse.t b/t/02parse.t
index 5534dc0..9722823 100644
--- a/t/02parse.t
+++ b/t/02parse.t
@@ -4,7 +4,7 @@
# this test checks the parsing capabilities of XML::LibXML
# it relies on the success of t/01basic.t
-use Test::More tests => 496;
+use Test::More tests => 531;
use IO::File;
use XML::LibXML::Common qw(:libxml);
@@ -339,7 +339,7 @@ diag("2 PUSH PARSER");
my $doc;
eval {$doc = $pparser->parse_chunk("",1); };
is($@, '', "No error parsing $key");
-# isa_ok($doc, 'XML::LibXML::Document', "Document came back parsing chunk: ");
+ isa_ok($doc, 'XML::LibXML::Document', "Document came back parsing chunk: ");
}
my @good_strings = ("<foo>", "bar", "</foo>" );
@@ -950,7 +950,7 @@ sub tsub2 {
return [ $doc->findnodes(encodeToUTF8('iso-8859-1',$query)) ];
}
-sub shorten_string {
+sub shorten_string { # Used for test naming.
my $string = shift;
return "'undef'" if(!defined $string);