use warnings;
use Test::RequiresInternet qw/getstrike.net 80/;
-use Test::More tests => 6;
+use Test::More tests => 9;
use Try::Tiny;
BEGIN { use_ok('WebService::Strike') };
} catch {
is $_->{status}, 404, 'non-existent torrent status is 404';
};
+
+my @debian = strike_search 'Debian';
+ok @debian > 10, 'search for Debian returned more than 10 results';
+try {
+ strike_search "nosuchstring$$";
+} catch {
+ is $_->{status}, 404, "search for nosuchstring$$ returned 404"
+};
+
+my $p = strike_search 'Perl', 1;
+is @{$p->file_names}, $p->count, 'file_names has count elements';