X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=c67d2d33d1434896790b334516aafd8a5f112d19;hb=8e74b4c85ca723cf8c47c7a6eff3f155dc53aed5;hp=ef9b682f19aedaa0850f0fb47399d2d698939029;hpb=045faed66663b14c8bc70e70c2653c8558af2766;p=www-offliberty.git

diff --git a/t/50-network.t b/t/50-network.t
index ef9b682..c67d2d3 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -1,14 +1,17 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use strict;
 use warnings;
 
-use LWP::Online ':skip_all';
-use Test::More tests => 2;
+use Test::RequiresInternet 'offliberty.com' => 80;
+use Test::More tests => 4;
 use WWW::Offliberty qw/off/;
 
 my @results;
 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
-is @results, 1, 'youtube';
+cmp_ok @results, '>=', 1, 'youtube';
 
 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
 is @results, 2, 'youtube, video_file => 1';
+
+like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
+unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';