view release on metacpan or  search on metacpan

t/unbroken-text.t  view on Meta::CPAN

use strict;
use warnings;

use HTML::Parser ();
use Test::More tests => 3;

my $text = "";

sub text {
    my $cdata = shift() ? "CDATA" : "TEXT";
    my ($offset, $line, $col, $t) = @_;
    $text .= "[$cdata:$offset:$line.$col:$t]";
}

sub tag {
    $text .= shift;
}

my $p = HTML::Parser->new(
    unbroken_text => 1,
    text_h        => [\&text, "is_cdata,offset,line,column,text"],
    start_h       => [\&tag, "text"],
    end_h         => [\&tag, "text"],
);

$p->parse("foo ");
$p->parse("bar ");
$p->parse("<foo>");
$p->parse("bar\n");
$p->parse("</foo>");
$p->parse("<xmp>xmp</xmp>");
$p->parse("atend");

#diag $text;
is($text,
    "[TEXT:0:1.0:foo bar ]<foo>[TEXT:13:1.13:bar\n]</foo><xmp>[CDATA:28:2.11:xmp]</xmp>"
);

$text = "";
$p->eof;

#diag $text;
is($text, "[TEXT:37:2.20:atend]");


$p = HTML::Parser->new(
    unbroken_text => 1,
    text_h        => [\&text, "is_cdata,offset,line,column,text"],
);

$text = "";
$p->parse("foo");
$p->parse("<foo");
$p->parse(">bar\n");
$p->parse("foo<xm");
$p->parse("p>xmp");
$p->parse("</xmp");
$p->parse(">bar");
$p->eof;

#diag $text;
is($text, "[TEXT:0:1.0:foobar\nfoo][CDATA:20:2.8:xmp][TEXT:29:2.17:bar]");