[www-offliberty.git] / t / 50-network.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::RequiresInternet 'offliberty.com' => 80;
use Test::More tests => 4;
use WWW::Offliberty qw/off/;

my @results;
@results = off 'https://vimeo.com/45196609';
cmp_ok @results, '>=', 1, 'vimeo';

@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"';
Commit	Line	Data
a0765f3d	1	#!/usr/bin/perl
de48830a MG	2	use strict;
	3	use warnings;
	4
09f254ed	5	use Test::RequiresInternet 'offliberty.com' => 80;
9dd40f61	6	use Test::More tests => 4;
de48830a MG	7	use WWW::Offliberty qw/off/;
de48830a MG	8
045faed6	9	my @results;
d59bef60 MG	10	@results = off 'https://vimeo.com/45196609';
d59bef60 MG	11	cmp_ok @results, '>=', 1, 'vimeo';
de48830a	12
d59bef60	13	@results = off 'https://vimeo.com/45196609', video_file => 1;
3aafdd8c	14	cmp_ok @results, '>=', 1, 'vimeo, video_file => 1';
9dd40f61	15
3aafdd8c MG	16	my $allresults = join ' ', @results;
	17	like $allresults, qr/\.mp4/, 'some URL contains ".mp4"';
	18	unlike $allresults, qr/offwarning/, 'no URL contains "offwarning"';