]> iEval git - www-offliberty.git/blob - t/50-network.t
32574b500e772450b2ed389203e8302a13d30c5d
[www-offliberty.git] / t / 50-network.t
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4
5 use Test::RequiresInternet 'offliberty.com' => 80;
6 use Test::More tests => 4;
7 use WWW::Offliberty qw/off/;
8
9 my @results;
10 @results = off 'https://vimeo.com/45196609';
11 cmp_ok @results, '>=', 1, 'vimeo';
12
13 @results = off 'https://vimeo.com/45196609', video_file => 1;
14 cmp_ok @results, '>=', 1, 'vimeo, video_file => 1';
15
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.051354 seconds and 4 git commands to generate.