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

   1 #!perl -w
   2
   3 use strict;
   4 use Test::More tests => 2;
   5
   6 use HTML::Parser ();
   7
   8 my $dtext = "";
   9 my $text  = "";
  10
  11 sub append
  12 {
  13     $dtext .= shift;
  14     $text .= shift;
  15 }
  16
  17 my $p = HTML::Parser->new(text_h    => [\&append, "dtext, text"],
  18                           default_h => [\&append, "text,  text" ],
  19                          );
  20
  21 my $doc = <<'EOT';
  22 <title>&aring</title>
  23 <a href="foo&aring">&aring&aring;&#65&#65;&lt&#65&gt;&#x41&#X41;</a>
  24 <?&aring>
  25 foo&nbsp;bar
  26 foo&nbspbar
  27 &xyzzy
  28 &xyzzy;
  29 <!-- &#0; -->
  30 &#1;
  31 &#255;
  32 &#xFF
  33 &#xFFG
  34 <!-- &#256; -->
  35 &#40000000000000000000000000000;
  36 &#x400000000000000000000000000000000;
  37 &
  38 &#
  39 &#x
  40 <xmp>&aring</xmp>
  41 <script>&aring</script>
  42 <ScRIPT>&aring</scRIPT>
  43 <skript>&aring</script>
  44 EOT
  45
  46 $p->parse($doc)->eof;
  47
  48 is($text, $doc);
  49 is($dtext, <<"EOT");
  50 <title>å</title>
  51 <a href="foo&aring">ååAA<A>AA</a>
  52 <?&aring>
  53 foo\240bar
  54 foo\240bar
  55 &xyzzy
  56 &xyzzy;
  57 <!-- &#0; -->
  58 \1
  59 \377
  60 \377
  61 \377G
  62 <!-- &#256; -->
  63 &#40000000000000000000000000000;
  64 &#x400000000000000000000000000000000;
  65 &
  66 &#
  67 &#x
  68 <xmp>&aring</xmp>
  69 <script>&aring</script>
  70 <ScRIPT>&aring</scRIPT>
  71 <skript>å</script>
  72 EOT