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

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

use LWP::Online ':skip_all';
use Test::More tests => 2;
use WWW::Offliberty qw/off/;

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';
Commit	Line	Data
de48830a MG	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4
045faed6 MG	5	use LWP::Online ':skip_all';
045faed6 MG	6	use Test::More tests => 2;
de48830a MG	7	use WWW::Offliberty qw/off/;
de48830a MG	8
045faed6 MG	9	my @results;
	10	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
	11	is @results, 1, 'youtube';
de48830a	12
045faed6 MG	13	@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
045faed6 MG	14	is @results, 2, 'youtube, video_file => 1';