blob: 17de561651ca211531921e01506dc19c80ddd779 (
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
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
|
use Test::More tests => 2;
use HTML::Parser;
my $res = "";
sub decl
{
my $t = shift;
$res .= "[" . join("\n", map "<$_>", @$t) . "]";
}
sub text
{
$res .= shift;
}
my $p = HTML::Parser->new(declaration_h => [\&decl, "tokens"],
default_h => [\&text, "text"],
);
$p->parse(<<EOT)->eof;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" --<comment>--
"http://www.w3.org/TR/html40/strict.dtd">
<!ENTITY foo "<!-- foo -->">
<!Entity foo "<!-- foo -->">
<!row --> foo
EOT
is($res, <<EOT);
[<DOCTYPE>
<HTML>
<PUBLIC>
<"-//W3C//DTD HTML 4.01//EN">
<--<comment>-->
<"http://www.w3.org/TR/html40/strict.dtd">]
[<ENTITY>
<foo>
<"<!-- foo -->">]
[<Entity>
<foo>
<"<!-- foo -->">]
<!row --> foo
EOT
$res = "";
$p->parse(<<EOT)->eof;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"[]>
EOT
is($res, <<EOT);
[<DOCTYPE>
<html>
<PUBLIC>
<"-//W3C//DTD XHTML 1.0 Strict//EN">
<"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<[]>]
EOT
|