t/support-youtube.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 => 11;
  12 }
  13 use Test::clive;
  14
  15 Test::clive::host( qq|http://www.youtube.com/watch?v=DUM1284TqFc|, "-f $_" )
  16     foreach qw(default flv_240p flv_360p flv_480p mp4_360p mp4_720p
  17     mp4_1080p mp4_3072p);
  18
  19 Test::clive::host(qq|http://www.youtube.com/v/DUM1284TqFc|);    # Embed.
  20
  21 Test::clive::host(qq|http://www.youtube-nocookie.com/v/3PuHGKnboNY|);
  22
  23 Test::clive::host(
  24     qq|http://www.last.fm/music/Iron+Maiden/+videos/+1-Pje6h_hFPzc|);