Skip to content

Commit

Permalink
Merge pull request #11 from ronaldxs/patch-1
Browse files Browse the repository at this point in the history
Update t/get-perl6-org.t
  • Loading branch information
cosimo committed Jul 29, 2012
2 parents 7dccaff + 811421b commit b6a3b79
Showing 1 changed file with 9 additions and 0 deletions.
9 changes: 9 additions & 0 deletions t/get-perl6-org.t
Expand Up @@ -11,6 +11,15 @@ ok(
'homepage is downloaded and has "Perl" in it'
);

# a page over 64K would be ideal but a bit slow and not really needed yet
$html = LWP::Simple.get(
'http://wiki.perl6.org/Mostly%20Harmless%20Docs/Operators'
);
ok(
$html.match('That also works with the Z operator:') &&
$html.match('</html>') && $html.bytes > 12_000,
'make sure we pulled down whole document for some substantial size'
);
#diag("Content\n" ~ $html);

done;
Expand Down

0 comments on commit b6a3b79

Please sign in to comment.