t/WWW-Search-Torrentz.t

   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;
   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', 100, undef);
  14 tm_run_test(normal => '"Kubuntu Linux 13 04 Raring Ringtail 64 bit"', 1, 5, undef, 1);
  15
  16 done_testing;