[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 tests => 10;

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', 20, undef);

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/;
34cc7bcc	7	use Test::More tests => 10;
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);
34cc7bcc	13	tm_run_test(normal => 'linux', 20, undef);
e605ae0f MG	14
e605ae0f MG	15	done_testing;