]>
iEval git - webservice-strike.git/blob - WebService-Strike.t
ffd59ad64464f676f3bd97abb28864ee6d364023
5 use Test
::RequiresInternet qw
/getstrike.net 80/;
6 use Test
::More tests
=> 6;
8 BEGIN { use_ok
('WebService::Strike') };
10 my ($t1, $t2, $t3) = strike qw
/B425907E5755031BDA4A8D1B6DCCACA97DA14C04 5D4FD5A64E436A831383773F85FB38B888B9ECC9 85DF191A921C20B2DDAFF72368CAB93BA18C5ACE/;
12 subtest
'order' => sub {
14 is
$t1->hash, 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04', 'hash #1';
15 is
$t2->hash, '5D4FD5A64E436A831383773F85FB38B888B9ECC9', 'hash #2';
16 is
$t3->hash, '85DF191A921C20B2DDAFF72368CAB93BA18C5ACE', 'hash #3'
19 is
$t1->date, 1420495200, 'date';
20 is
$t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
21 like
$t1->torrent, qr/^d/, 'torrent file starts with d';
26 is
$_->{status
}, 404, 'non-existent torrent status is 404';
This page took 0.047683 seconds and 3 git commands to generate.