]>
iEval git - www-offliberty.git/blob - t/50-network.t
5 use Test
::RequiresInternet
'offliberty.com' => 80;
6 use Test
::More tests
=> 4;
7 use WWW
::Offliberty qw
/off/;
10 @results = off
'https://vimeo.com/45196609';
11 cmp_ok
@results, '>=', 1, 'vimeo';
13 @results = off
'https://vimeo.com/45196609', video_file
=> 1;
14 cmp_ok
@results, '>=', 1, 'vimeo, video_file => 1';
16 my $allresults = join ' ', @results;
17 like
$allresults, qr/\.mp4/, 'some URL contains ".mp4"';
18 unlike
$allresults, qr/offwarning/, 'no URL contains "offwarning"';
This page took 0.052727 seconds and 4 git commands to generate.