t/11redtube.t

   1 #!/usr/bin/env perl -I./t/lib
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More;
   7 plan skip_all => "Broken. See http://code.google.com/p/clive/issues/detail?id=41";
   8 if ( $ENV{NO_INTERNET} ) {
   9     plan skip_all => "No internet during package build";
  10 }
  11 else {
  12     if (!$ENV{ADULT_OK}) {
  13         plan skip_all => "Do not test adult websites";
  14     }
  15     plan tests => 1;
  16 }
  17 use Test::clive;
  18
  19 Test::clive::host(qq|http://www.redtube.com/3644|);