t/11redtube.t

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