From: Marius Gavrilescu Date: Sun, 6 Dec 2015 21:52:50 +0000 (+0200) Subject: Add some tests that attempt to catch dummy results X-Git-Tag: 1.000001~1 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=9dd40f61d7a9d4f3339b10fa63e4344f256b6e81;p=www-offliberty.git Add some tests that attempt to catch dummy results --- diff --git a/t/50-network.t b/t/50-network.t index 14a9cb9..c67d2d3 100644 --- a/t/50-network.t +++ b/t/50-network.t @@ -3,7 +3,7 @@ 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; @@ -12,3 +12,6 @@ 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"';