use
FindBin;
use
WWW::WTF::Test;
my
$test
= WWW::WTF::Test->new();
$test
->run_test(
sub
{
my
(
$self
) =
@_
;
my
$http_resource
=
$self
->ua_lwp->get(
$self
->uri_for(
'/index.html'
));
is(
scalar
(
$http_resource
->get_a_tags()), 2);
is(
scalar
(
$http_resource
->get_a_tags()), 2);
});
done_testing();