blob: 008739e0adea3c1d71556bb85217469e02c530a3 (
plain)
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
|
use Test::More tests => 4;
use strict;
use HTML::Parser ();
my $html = '<A href="foo">text</A>';
my $text = '';
my $p = HTML::Parser->new(default_h => [sub {$text .= shift;}, 'text']);
$p->parse($html)->eof;
is($text, $html);
$text = '';
$p->handler(start => "");
$p->parse($html)->eof;
is($text, 'text</A>');
$text = '';
$p->handler(end => 0);
$p->parse($html)->eof;
is($text, 'text');
$text = '';
$p->handler(start => undef);
$p->parse($html)->eof;
is($text, '<A href="foo">text');
|