[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;
is @results, 2, 'vimeo, video_file => 1';

like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';
Commit	Line	Data
	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	is @results, 2, 'vimeo, video_file => 1';
	15
	16	like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
	17	unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';