1use Test; 2BEGIN { plan tests => 5 } 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/01.xml") || die $!; 14ok($file); 15 16$parser->parse_file($file); 17ok($handler->{seen}{start_document}); 18ok($handler->{seen}{end_document}); 19 20