git.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/t/default.t

   1 use strict;
   2 use Test::More tests => 3;
   3
   4 my $text = "";
   5 use HTML::Parser ();
   6 my $p = HTML::Parser->new(default_h => [sub { $text .= shift }, "text"],
   7                          );
   8
   9 my $html = <<'EOT';
  10
  11 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
  12                        "http://www.w3.org/TR/html40/strict.dtd">
  13
  14 <title>foo</title>
  15 <!-- comment <a> -->
  16 <?process instruction>
  17
  18 EOT
  19
  20 $p->parse($html)->eof;
  21
  22 is($text, $html);
  23
  24 $text = "";
  25 $p->handler(start => sub { }, "");
  26 $p->handler(declaration => sub { }, "");
  27 $p->parse($html)->eof;
  28
  29 my $html2;
  30 $html2 = $html;
  31 $html2 =~ s/<title>//;
  32 $html2 =~ s/<!DOCTYPE[^>]*>//;
  33
  34 is($text, $html2);
  35
  36 $text = "";
  37 $p->handler(start => undef);
  38 $p->parse($html)->eof;
  39
  40 $html2 = $html;
  41 $html2 =~ s/<!DOCTYPE[^>]*>//;
  42
  43 is($text, $html2);