]>
iEval git - webservice-strike.git/blob - t/WebService-Strike-Torrent.t
5 use Test
:: More tests
=> 14 ;
6 BEGIN { use_ok
( 'WebService::Strike::Torrent' ) }
11 torrent_hash
=> 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04' ,
14 torrent_category
=> 'Applications' ,
16 file_names
=> [ 'archlinux-2015.01.01-dual.iso' ],
17 file_lengths
=> [ 615514112 ],
19 upload_date
=> 'Jan 6, 2015' ,
21 uploader_username
=> 'The_Doctor-' ,
22 magnet_uri
=> 'magnet:?xt=urn:btih:B425907E5755031BDA4A8D1B6DCCACA97DA14C04&dn=Arch+Linux+2015.01.01+ %28x86 %2Fx64 %29 &tr=udp://open.demonii.com:1337&tr=udp://tracker.coppersurfer.tk:6969&tr=udp://tracker.leechers-paradise.org:6969&tr=udp://exodus.desync.com:6969' ,
23 torrent_title
=> 'Arch Linux 2015.01.01 (x86/x64)'
26 my $t = WebService
:: Strike
:: Torrent
-> new ( \
%data );
28 is
$t -> hash , 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04' , 'hash' ;
29 is
$t -> title , 'Arch Linux 2015.01.01 (x86/x64)' , 'title' ;
30 is
$t -> category , 'Applications' , 'category' ;
31 is
$t -> sub_category , '' , 'sub_category' ;
32 is
$t -> seeds , 645 , 'seeds' ;
33 is
$t -> leeches , 13 , 'leeches' ;
34 is
$t -> count , 1 , 'count' ;
35 is
$t -> size , 615514112 , 'size' ;
36 is
$t -> date , 1420502400 , 'date' ;
37 is
$t -> uploader , 'The_Doctor-' , 'uploader' ;
38 is
$t -> names ->[ 0 ], 'archlinux-2015.01.01-dual.iso' , 'names' ;
39 is
$t -> lengths ->[ 0 ], 615514112 , 'lengths' ;
40 is
$t -> magnet , 'magnet:?xt=urn:btih:B425907E5755031BDA4A8D1B6DCCACA97DA14C04&dn=Arch+Linux+2015.01.01+ %28x86 %2Fx64 %29 &tr=udp://open.demonii.com:1337&tr=udp://tracker.coppersurfer.tk:6969&tr=udp://tracker.leechers-paradise.org:6969&tr=udp://exodus.desync.com:6969' , 'magnet' ;
This page took 0.057037 seconds and 4 git commands to generate.