X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=14a9cb9e72dd1bdda4e169e050ed66b9148324ad;hb=aa0cd8d4eead4039d4a02d1949a43d63b8d05bdc;hp=ef9b682f19aedaa0850f0fb47399d2d698939029;hpb=045faed66663b14c8bc70e70c2653c8558af2766;p=www-offliberty.git diff --git a/t/50-network.t b/t/50-network.t index ef9b682..14a9cb9 100644 --- a/t/50-network.t +++ b/t/50-network.t @@ -1,14 +1,14 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use strict; use warnings; -use LWP::Online ':skip_all'; +use Test::RequiresInternet 'offliberty.com' => 80; use Test::More tests => 2; 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';