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