git.maemo.org Git - pkg-perl/blob - deb-src/libhtml-tree-perl/libhtml-tree-perl-3.23/t/parsefile.t

   1 #!perl -Tw
   2 use Test::More tests=>5;
   3 BEGIN {
   4     use_ok( 'HTML::TreeBuilder' );
   5 }
   6 use strict;
   7
   8 print "#Using HTML::TreeBuilder version v$HTML::TreeBuilder::VERSION\n";
   9 print "#Using HTML::Element version v$HTML::Element::VERSION\n";
  10 print "#Using HTML::Parser version v", $HTML::Parser::VERSION || "?", "\n";
  11 print "#Using HTML::Entities version v", $HTML::Entities::VERSION || "?", "\n";
  12 print "#Using HTML::Tagset version v", $HTML::Tagset::VERSION || "?", "\n";
  13 print "# Running under perl version $] for $^O",
  14   (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
  15 print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
  16   if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
  17 print "# MacPerl verison $MacPerl::Version\n"
  18   if defined $MacPerl::Version;
  19 printf
  20   "# Current time local: %s\n# Current time GMT:   %s\n",
  21   scalar(localtime($^T)), scalar(gmtime($^T));
  22
  23
  24 my $tempfile = "lwp-test-$$";
  25
  26 open(F, ">$tempfile") or die "Can't open $tempfile: $!";
  27
  28 print F <<EOT;
  29 <!-- This is a test file generated by $0 -->
  30 <title>Libwww-perl test</title>
  31 <isindex>
  32
  33 <body>
  34
  35 This is some text and this is a simple <a
  36 href="http://www.sn.no/libwww-perl/">link</a> back to the
  37 <b>libwww-perl</b> site.
  38
  39 <!-- This tag isn't quoted properly, but should be when rendered -->
  40 <img src=sean-burke-naked-as-a-jaybird.jpg>
  41
  42 <foo a=b
  43
  44 EOT
  45 close(F);
  46
  47 my $h = HTML::TreeBuilder->new;
  48 $h->parse_file($tempfile);
  49 unlink($tempfile);
  50
  51 {
  52 my $x = $_ = $h->as_HTML;
  53 $x =~ s/^/# /mg;
  54 print "# As HTML: $x#\n";
  55 }
  56
  57 # Just make a few samples to check that we got what we expected
  58 like($_, qr/<head>/i, "Matches Head");
  59 like($_, qr/<isindex \/>/i, "Matches isindex");
  60 like($_, qr/<img src="sean-burke-naked-as-a-jaybird.jpg" \/>/, "Found the img tag");
  61 like($_, qr/this is a simple/, "Matches simple text");
  62
  63 # /foo\s*a=b/ || $bad++; # too version-dependent