t/50-network.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4
   5 use Test::RequiresInternet 'offliberty.com' => 80;
   6 use Test::More tests => 2;
   7 use WWW::Offliberty qw/off/;
   8
   9 my @results;
  10 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
  11 is @results, 1, 'youtube';
  12
  13 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
  14 is @results, 2, 'youtube, video_file => 1';