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

   1 #!perl -w
   2
   3 use strict;
   4 use Test;
   5 plan tests => 1;
   6
   7 use HTML::Parser;
   8
   9 my $TEXT = "";
  10 sub h
  11 {
  12     my($event, $tagname, $text) = @_;
  13     for ($event, $tagname, $text) {
  14         if (defined) {
  15             s/([\n\r\t])/sprintf "\\%03o", ord($1)/ge;
  16         }
  17         else {
  18             $_ = "<undef>";
  19         }
  20     }
  21
  22     $TEXT .= "[$event,$tagname,$text]\n";
  23 }
  24
  25 my $p = HTML::Parser->new(default_h => [\&h, "event,tagname,text"], empty_element_tags => 1);
  26 $p->parse(q(<tr><td align="center" height="100"><script src="whatever"/><SCRIPT language="JavaScript1.1">bust = Math.floor(1000000*Math.random());document.write('<SCR' + 'IPT LANGUAGE="JavaScript1.1" SRC="http://adv.virgilio.it/js.ng/site=virg&adsize=728x90&subsite=mail&sez=comfree&pos=43&bust='+bust+'?">\n');document.write('</SCR' + 'IPT>\n');</SCRIPT></td></tr>));
  27 $p->eof;
  28
  29 ok($TEXT, <<'EOT');
  30 [start_document,<undef>,]
  31 [start,tr,<tr>]
  32 [start,td,<td align="center" height="100">]
  33 [start,script,<script src="whatever"/>]
  34 [end,script,]
  35 [start,script,<SCRIPT language="JavaScript1.1">]
  36 [text,<undef>,bust = Math.floor(1000000*Math.random());document.write('<SCR' + 'IPT LANGUAGE="JavaScript1.1" SRC="http://adv.virgilio.it/js.ng/site=virg&adsize=728x90&subsite=mail&sez=comfree&pos=43&bust='+bust+'?">\n');document.write('</SCR' + 'IPT>\n');]
  37 [end,script,</SCRIPT>]
  38 [end,td,</td>]
  39 [end,tr,</tr>]
  40 [end_document,<undef>,]
  41 EOT