print "1..1\n";
use HTML::TreeBuilder;
$file = "lwp-test-$$";
open(F, ">$file") or die "Can't open $file: $!";
print F <
Libwww-perl test
This is some text and this is a simple link back to the
libwww-perl site.
new;
$h->parse_file($file);
unlink($file);
$_ = $h->as_HTML;
print $_;
# Just make a few samples to check that we got what we expected
//i || $bad++;
//i || $bad++;
/this is a simple/ || $bad++;
/foo\s*a=b/ || $bad++;
print "not " if $bad;
print "ok 1\n";