X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=32574b500e772450b2ed389203e8302a13d30c5d;hb=HEAD;hp=c67d2d33d1434896790b334516aafd8a5f112d19;hpb=9dd40f61d7a9d4f3339b10fa63e4344f256b6e81;p=www-offliberty.git diff --git a/t/50-network.t b/t/50-network.t index c67d2d3..32574b5 100644 --- a/t/50-network.t +++ b/t/50-network.t @@ -7,11 +7,12 @@ use Test::More tests => 4; use WWW::Offliberty qw/off/; my @results; -@results = off "http://youtube.com/watch?v=Tj75Arhq5ho"; -cmp_ok @results, '>=', 1, 'youtube'; +@results = off 'https://vimeo.com/45196609'; +cmp_ok @results, '>=', 1, 'vimeo'; -@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1; -is @results, 2, 'youtube, video_file => 1'; +@results = off 'https://vimeo.com/45196609', video_file => 1; +cmp_ok @results, '>=', 1, 'vimeo, video_file => 1'; -like $results[1], qr/\.mp4/, 'video URL contains ".mp4"'; -unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"'; +my $allresults = join ' ', @results; +like $allresults, qr/\.mp4/, 'some URL contains ".mp4"'; +unlike $allresults, qr/offwarning/, 'no URL contains "offwarning"';