[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
	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4
	5	use WWW::Search::Test;
	6	use Test::RequiresInternet qw/torrentz.eu 443/;
	7	use Test::More tests => 10;
	8
	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', 20, undef);
	14
	15	done_testing;