1use Test; 2BEGIN { $tests = 0; 3 if ($] >= 5.007002) { $tests = 7 } 4 plan tests => $tests; 5} 6if ($tests) { 7use XML::SAX::PurePerl; 8use XML::SAX::PurePerl::DebugHandler; 9 10my $handler = XML::SAX::PurePerl::DebugHandler->new(); 11ok($handler); 12 13my $parser = XML::SAX::PurePerl->new(Handler => $handler); 14ok($parser); 15 16# warn("utf-16\n"); 17$parser->parse_uri("testfiles/utf-16.xml"); 18ok(1); 19 20# warn("utf-16le\n"); 21$parser->parse_uri("testfiles/utf-16le.xml"); 22ok(1); 23 24# warn("koi8_r\n"); 25$parser->parse_uri("testfiles/koi8_r.xml"); 26ok(1); 27 28# warn("8859-1\n"); 29$parser->parse_uri("testfiles/iso8859_1.xml"); 30ok(1); 31 32# warn("8859-2\n"); 33$parser->parse_uri("testfiles/iso8859_2.xml"); 34ok(1); 35} 36