[www-search-torrentz.git] / t / WWW-Search-Torrentz.t

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

use WWW::Search::Test;
use Test::RequiresInternet qw/torrentz.eu 443/;
use Test::More;

BEGIN { use_ok('WWW::Search::Torrentz') };

tm_new_engine('Torrentz');
tm_run_test(normal => $WWW::Search::Test::bogus_query, 0, 0);
tm_run_test(normal => 'linux', 100, undef);
tm_run_test(normal => '"Kubuntu Linux 13 04 Raring Ringtail 64 bit"', 1, 5, undef, 1);

done_testing;
Commit	Line	Data
e605ae0f MG	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4
	5	use WWW::Search::Test;
a1d7294b	6	use Test::RequiresInternet qw/torrentz.eu 443/;
e605ae0f	7	use Test::More;
a1d7294b	8
e605ae0f MG	9	BEGIN { use_ok('WWW::Search::Torrentz') };
	10
	11	tm_new_engine('Torrentz');
	12	tm_run_test(normal => $WWW::Search::Test::bogus_query, 0, 0);
	13	tm_run_test(normal => 'linux', 100, undef);
	14	tm_run_test(normal => '"Kubuntu Linux 13 04 Raring Ringtail 64 bit"', 1, 5, undef, 1);
	15
	16	done_testing;