git.maemo.org Git - dh-make-perl/blob - dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/headparser-http.t

   1 use Test::More tests => 1;
   2
   3 eval {
   4    require HTML::HeadParser;
   5    $p = HTML::HeadParser->new;
   6 };
   7
   8 SKIP: {
   9 skip $@, 1 if $@ =~ /^Can't locate HTTP/;
  10
  11 $p = HTML::HeadParser->new($h);
  12 $p->parse(<<EOT);
  13 <title>Stupid example</title>
  14 <base href="http://www.sn.no/libwww-perl/">
  15 Normal text starts here.
  16 EOT
  17 $h = $p->header;
  18 undef $p;
  19 is($h->title, "Stupid example");
  20 }