diff options
Diffstat (limited to 't/default.t')
-rw-r--r-- | t/default.t | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/t/default.t b/t/default.t new file mode 100644 index 0000000..4b5ed79 --- /dev/null +++ b/t/default.t @@ -0,0 +1,43 @@ +use strict; +use Test::More tests => 3; + +my $text = ""; +use HTML::Parser (); +my $p = HTML::Parser->new(default_h => [sub { $text .= shift }, "text"], + ); + +my $html = <<'EOT'; + +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html40/strict.dtd"> + +<title>foo</title> +<!-- comment <a> --> +<?process instruction> + +EOT + +$p->parse($html)->eof; + +is($text, $html); + +$text = ""; +$p->handler(start => sub { }, ""); +$p->handler(declaration => sub { }, ""); +$p->parse($html)->eof; + +my $html2; +$html2 = $html; +$html2 =~ s/<title>//; +$html2 =~ s/<!DOCTYPE[^>]*>//; + +is($text, $html2); + +$text = ""; +$p->handler(start => undef); +$p->parse($html)->eof; + +$html2 = $html; +$html2 =~ s/<!DOCTYPE[^>]*>//; + +is($text, $html2); |