Permalink
Browse files

Merge pull request #11 from ronaldxs/patch-1

Update t/get-perl6-org.t
  • Loading branch information...
2 parents 7dccaff + 811421b commit b6a3b798714ebb1d7e10a79dedb6ef28fb4ae185 @cosimo committed Jul 29, 2012
Showing with 9 additions and 0 deletions.
  1. +9 −0 t/get-perl6-org.t
View
@@ -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;

0 comments on commit b6a3b79

Please sign in to comment.