X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=98d0c686e125e89a1fd8afa7b2bebff3ba4216cc;hb=refs%2Ftags%2F1.000005;hp=14a9cb9e72dd1bdda4e169e050ed66b9148324ad;hpb=d6ea2a75f1c44ce46e596d4abf63201312f9fe5c;p=www-offliberty.git

diff --git a/t/50-network.t b/t/50-network.t
index 14a9cb9..98d0c68 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -3,12 +3,15 @@ use strict;
 use warnings;
 
 use Test::RequiresInternet 'offliberty.com' => 80;
-use Test::More tests => 2;
+use Test::More tests => 4;
 use WWW::Offliberty qw/off/;
 
 my @results;
-@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
+@results = off "https://youtube.com/watch?v=dQw4w9WgXcQ";
 cmp_ok @results, '>=', 1, 'youtube';
 
-@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
+@results = off "https://youtube.com/watch?v=dQw4w9WgXcQ", 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"';