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