1use Test; 2BEGIN { plan tests => 10 } 3use XML::SAX::PurePerl; 4use XML::SAX::PurePerl::DebugHandler; 5use IO::File; 6 7my $handler = XML::SAX::PurePerl::DebugHandler->new(); 8ok($handler); 9 10my $parser = XML::SAX::PurePerl->new(Handler => $handler); 11ok($parser); 12 13my $file = IO::File->new("testfiles/02a.xml"); 14ok($file); 15 16# check invalid characters 17eval { 18$parser->parse_file($file); 19}; 20ok($@); 21 22print $@; 23 24ok($@->{Message}); 25ok($@->{LineNumber}, 1); 26ok($@->{ColumnNumber}, 15); 27 28# check invalid version number 29eval { 30$parser->parse_uri("file:testfiles/02b.xml"); 31}; 32ok($@); 33 34print $@; 35 36ok($@->{LineNumber}, 1); 37ok($@->{ColumnNumber}, 15); 38 39