1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 16;
use Test::Exception;
use XML::SAX;
use XML::SAX::PurePerl::DebugHandler;
XML::SAX->add_parser(q(XML::SAX::Expat::Incremental));
local $XML::SAX::ParserPackage = 'XML::SAX::Expat::Incremental';
isa_ok(
my $handler = XML::SAX::PurePerl::DebugHandler->new(),
"XML::SAX::PurePerl::DebugHandler",
);
isa_ok(
my $parser = XML::SAX::ParserFactory->parser(Handler => $handler),
"XML::SAX::Expat::Incremental",
);
dies_ok {
$parser->parse_file(\*DATA)
} "can't parse from filehandle";
dies_ok {
$parser->parse_done;
} "can't parse_done without having started";
my @lines = <DATA>;
$parser->parse_string(shift @lines);
is($handler->{seen}{start_element}, 1, "parsed one elem");
ok(!$handler->{seen}{end_element}, "nothing ended yet");
dies_ok {
$parser->parse_start;
} "can't start after having started";
$parser->parse_string(shift @lines);
is($handler->{seen}{start_element}, 3, "two elements started");
is($handler->{seen}{end_element}, 2, "two closed");
$parser->parse_string(shift @lines);
is($handler->{seen}{start_element}, 4, "one more opened");
ok($handler->{seen}{characters}, "at least some character data by now");
is($handler->{seen}{end_element}, 3, "one more closed");
my $line = shift @lines;
$parser->parse_string(substr($line, 0, 3, '')); # "</x"
is($handler->{seen}{end_element}, 3, "nothing closed after adding half a close tag");
$parser->parse_string($line);
is($handler->{seen}{end_element}, $handler->{seen}{start_element}, "root element closed");
$parser->parse_done;
ok($handler->{seen}{end_document}, "document ended");
lives_ok {
$parser->parse_start;
} "now that we're done we can start a new parse";
__DATA__
<xml>
<foo/><gorch/>
<bar>ding</bar>
</xml>
|