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

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

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

my ($t1, $t2, $t3) = strike qw/B425907E5755031BDA4A8D1B6DCCACA97DA14C04 5D4FD5A64E436A831383773F85FB38B888B9ECC9 85DF191A921C20B2DDAFF72368CAB93BA18C5ACE/;

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

is $t1->date, 1420502400, 'date';
is $t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
like $t1->torrent, qr/^d/, 'torrent file starts with d';

try {
	strike 'aaa';
} catch {
	is $_->{status}, 404, 'non-existent torrent status is 404';
};
Commit	Line	Data
27da1d36 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::RequiresInternet qw/getstrike.net 80/;
	6	use Test::More tests => 6;
	7	use Try::Tiny;
	8	BEGIN { use_ok('WebService::Strike') };
	9
	10	my ($t1, $t2, $t3) = strike qw/B425907E5755031BDA4A8D1B6DCCACA97DA14C04 5D4FD5A64E436A831383773F85FB38B888B9ECC9 85DF191A921C20B2DDAFF72368CAB93BA18C5ACE/;
	11
	12	subtest 'order' => sub {
	13	plan tests => 3;
	14	is $t1->hash, 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04', 'hash #1';
	15	is $t2->hash, '5D4FD5A64E436A831383773F85FB38B888B9ECC9', 'hash #2';
	16	is $t3->hash, '85DF191A921C20B2DDAFF72368CAB93BA18C5ACE', 'hash #3'
	17	};
	18
f447922d	19	is $t1->date, 1420502400, 'date';
27da1d36 MG	20	is $t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
	21	like $t1->torrent, qr/^d/, 'torrent file starts with d';
	22
	23	try {
	24	strike 'aaa';
	25	} catch {
	26	is $_->{status}, 404, 'non-existent torrent status is 404';
	27	};