t/05dailymotion.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 => 3;
  12 }
  13 use Test::clive;
  14
  15 foreach (qw(flv hq hd)) {
  16     Test::clive::host(
  17         qq|http://www.dailymotion.com/hd/video/|
  18             . qq|x9fkzj_battlefield-1943-coral-sea-trailer_videogames|,
  19         "-f $_"
  20     );
  21 }