X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=32574b500e772450b2ed389203e8302a13d30c5d;hb=HEAD;hp=44d9a9854da00d94379203997902177aed7f89be;hpb=a0765f3d8bfd38d11622a3e166dcd74fb377c7c7;p=www-offliberty.git

diff --git a/t/50-network.t b/t/50-network.t
index 44d9a98..32574b5 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -3,12 +3,16 @@ 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";
-is @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';
+
+my $allresults = join ' ', @results;
+like $allresults, qr/\.mp4/, 'some URL contains ".mp4"';
+unlike $allresults, qr/offwarning/, 'no URL contains "offwarning"';