t/headparser-http.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

use Test::More tests => 1;

eval {
   require HTML::HeadParser;
   $p = HTML::HeadParser->new;
};

SKIP: {
skip $@, 1 if $@ =~ /^Can't locate HTTP/;

$p = HTML::HeadParser->new($h);
$p->parse(<<EOT);
<title>Stupid example</title>
<base href="http://www.sn.no/libwww-perl/">
Normal text starts here.
EOT
$h = $p->header;
undef $p;
is($h->title, "Stupid example");
}