t/10sevenload.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     plan tests => 5;
  12 }
  13 use Test::clive;
  14
  15 Test::clive::host(
  16     qq|http://en.sevenload.com/videos/IUL3gda-Funny-Football-Clips|);
  17 Test::clive::host(
  18     qq|http://de.sevenload.com/videos/GN4Hati/EM08-Spanien-Russland-4-1-Highlights|
  19 );
  20 Test::clive::host(
  21     qq|http://en.sevenload.com/shows/TheSailingChannel-TV/episodes/zLM5OvT-Cruising-with-Bettie-Trailer|
  22 );
  23 Test::clive::host(
  24     qq|http://de.sevenload.com/sendungen/halbzeit-in/folgen/Kbv3CsN-Wechselgesang-Sieger-beste-Bewertungen|
  25 );
  26
  27 # Embed.
  28 Test::clive::host(
  29     qq|http://en.sevenload.com/pl/IUL3gda-Funny-Football-Clips|);