[webservice-strike.git] / t / WebService-Strike.t

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

use Data::Dumper qw/Dumper/;
use Test::RequiresInternet qw/getstrike.net 443/;
use Test::More tests => 8;
use Try::Tiny;
BEGIN { use_ok('WebService::Strike') };

my ($t1, $t2, $t3);
try {
	($t1, $t2, $t3) = strike qw/66FC47BF95D1AA5ECA358F12C70AF3BA5C7E8F9A 5D4FD5A64E436A831383773F85FB38B888B9ECC9 B425907E5755031BDA4A8D1B6DCCACA97DA14C04/;
} catch {
	diag 'Error while calling strike:', "\n", Dumper $_
};

subtest 'order' => sub {
	plan tests => 3;
	is $t1->hash, '66FC47BF95D1AA5ECA358F12C70AF3BA5C7E8F9A', 'hash #1';
	is $t2->hash, '5D4FD5A64E436A831383773F85FB38B888B9ECC9', 'hash #2';
	is $t3->hash, 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04', 'hash #3'
};

is $t1->date, 1439319419, 'date';
is $t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
like $t2->description, qr#FreeBSD#, 'description contains FreeBSD';

try {
	strike 'aaa';
} 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"
};

# Test disabled as it fails due to the API returning bad results
#my $p = strike_search 'Perl', 1;
#say STDERR $p->hash;
#
#is @{$p->file_names}, $p->count, 'file_names has count elements';

# Test disabled as I can't find a torrent with an IMDB ID. Presumably
# this feature of the API is broken.
#my $imdb = strike('ED70C185E3E3246F30B2FDB08D504EABED5EEA3F')->imdb;
#is $imdb->{title}, 'The Walking Dead', 'imdb title';
Commit	Line	Data
27da1d36 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
fceb2d41 MG	5	use Data::Dumper qw/Dumper/;
fceb2d41 MG	6	use Test::RequiresInternet qw/getstrike.net 443/;
94cc52f9	7	use Test::More tests => 8;
27da1d36 MG	8	use Try::Tiny;
	9	BEGIN { use_ok('WebService::Strike') };
	10
fceb2d41 MG	11	my ($t1, $t2, $t3);
fceb2d41 MG	12	try {
94cc52f9	13	($t1, $t2, $t3) = strike qw/66FC47BF95D1AA5ECA358F12C70AF3BA5C7E8F9A 5D4FD5A64E436A831383773F85FB38B888B9ECC9 B425907E5755031BDA4A8D1B6DCCACA97DA14C04/;
fceb2d41 MG	14	} catch {
	15	diag 'Error while calling strike:', "\n", Dumper $_
	16	};
27da1d36 MG	17
	18	subtest 'order' => sub {
	19	plan tests => 3;
94cc52f9	20	is $t1->hash, '66FC47BF95D1AA5ECA358F12C70AF3BA5C7E8F9A', 'hash #1';
27da1d36	21	is $t2->hash, '5D4FD5A64E436A831383773F85FB38B888B9ECC9', 'hash #2';
94cc52f9	22	is $t3->hash, 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04', 'hash #3'
27da1d36 MG	23	};
27da1d36 MG	24
94cc52f9	25	is $t1->date, 1439319419, 'date';
27da1d36	26	is $t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
94cc52f9	27	like $t2->description, qr#FreeBSD#, 'description contains FreeBSD';
27da1d36 MG	28
	29	try {
	30	strike 'aaa';
	31	} catch {
	32	is $_->{status}, 404, 'non-existent torrent status is 404';
	33	};
9373f0ad MG	34
	35	my @debian = strike_search 'Debian';
	36	ok @debian > 10, 'search for Debian returned more than 10 results';
	37	try {
	38	strike_search "nosuchstring$$";
	39	} catch {
	40	is $_->{status}, 404, "search for nosuchstring$$ returned 404"
	41	};
	42
94cc52f9 MG	43	# Test disabled as it fails due to the API returning bad results
	44	#my $p = strike_search 'Perl', 1;
	45	#say STDERR $p->hash;
	46	#
	47	#is @{$p->file_names}, $p->count, 'file_names has count elements';
0eff1663	48
94cc52f9 MG	49	# Test disabled as I can't find a torrent with an IMDB ID. Presumably
	50	# this feature of the API is broken.
	51	#my $imdb = strike('ED70C185E3E3246F30B2FDB08D504EABED5EEA3F')->imdb;
	52	#is $imdb->{title}, 'The Walking Dead', 'imdb title';