1 use Test::More tests => 1;
8 <title>This is a <nice> title</title>
10 <script language="perl">while (<DATA>) { & }</script>
14 <textarea name="foo" cols=50 rows=10>
34 $_ = "<undef>" unless defined;
37 $dump .= join("|", @a) . "\n";
40 my $p = HTML::Parser->new(default_h => [\&tdump, "event,text,dtext,is_cdata"]);
41 $p->parse($html)->eof;
46 start_document||<undef>|<undef>
47 start|<html>|<undef>|<undef>
49 start|<title>|<undef>|<undef>
50 text|This is a <nice> title|This is a <nice> title|
51 end|</title>|<undef>|<undef>
53 comment|<!--comment-->|<undef>|<undef>
55 start|<script language="perl">|<undef>|<undef>
56 text|while (<DATA>) { & }|while (<DATA>) { & }|1
57 end|</script>|<undef>|<undef>
59 start|<FORM>|<undef>|<undef>
61 start|<textarea name="foo" cols=50 rows=10>|<undef>|<undef>
62 text|\n\nfoo\n<foo>\n<!--comment-->\n&\nfoo\n</FORM>\n\n|\n\nfoo\n<foo>\n<!--comment-->\n&\nfoo\n</FORM>\n\n|
63 end|</textarea>|<undef>|<undef>
65 end|</FORM>|<undef>|<undef>
67 end|</html>|<undef>|<undef>
69 end_document||<undef>|<undef>