use Test::More tests => 3;
use strict;
use HTML::Parser;
my @a;
my $p = HTML::Parser->new(api_version => 3);
$p->handler(default => \@a, '@{event, text, is_cdata}');
$p->parse(<eof;
x
foo
EOT
for (@a) {
$_ = "" unless defined;
}
my $doc = join(":", @a);
#diag $doc;
is($doc, "start_document:::start:::text::1:end:::text:x::start:::text:
foo
:1:end_document::");
@a = ();
$p->closing_plaintext('yep, emulate gecko');
$p->parse(<eof;
foo
EOT
for (@a) {
$_ = "" unless defined;
}
$doc = join(":", @a);
#diag $doc;
is($doc, "start_document:::start:::text:
:1:end:::text:foo::start:::end:::text:
::end_document::");
@a = ();
$p->closing_plaintext('yep, emulate gecko (2)');
$p->parse(<eof;
foo
EOT
$doc = join(":", map { defined $_ ? $_ : "" } @a);
is($doc, "start_document:::start:::text:
foo
:1:end_document::");