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

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

use Test::More;
use WWW::Offliberty qw/off/;

if ($ENV{NETWORK_TEST}) {
	plan tests => 2;

	my @results;

	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
	is @results, 1, 'youtube';

	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
	is @results, 2, 'youtube, video_file => 1';
} else {
	plan skip_all => '$ENV{NETWORK_TEST} not true';
}
Commit	Line	Data
de48830a MG	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4
	5	use Test::More;
	6	use WWW::Offliberty qw/off/;
	7
	8	if ($ENV{NETWORK_TEST}) {
000e3496	9	plan tests => 2;
de48830a	10
000e3496	11	my @results;
de48830a	12
000e3496 MG	13	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
000e3496 MG	14	is @results, 1, 'youtube';
de48830a	15
000e3496 MG	16	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
000e3496 MG	17	is @results, 2, 'youtube, video_file => 1';
de48830a	18	} else {
000e3496	19	plan skip_all => '$ENV{NETWORK_TEST} not true';
de48830a	20	}