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

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

use WWW::Search::Test;
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;
	6	use Test::More;
	7	BEGIN { use_ok('WWW::Search::Torrentz') };
	8
	9	tm_new_engine('Torrentz');
	10	tm_run_test(normal => $WWW::Search::Test::bogus_query, 0, 0);
	11	tm_run_test(normal => 'linux', 100, undef);
	12	tm_run_test(normal => '"Kubuntu Linux 13 04 Raring Ringtail 64 bit"', 1, 5, undef, 1);
	13
	14	done_testing;