]>
iEval git - www-search-torrentz.git/blob - t/WWW-Search-Torrentz-Result.t
5 use Test
::More tests
=> 9;
6 BEGIN { use_ok
('WWW::Search::Torrentz::Result') };
8 my $result = WWW
::Search
::Torrentz
::Result
->new(
15 infohash
=> '514131e668a8134bca9668ef2e19e690924adf86',
18 is
$result->title, 'Title', 'title';
19 is
$result->verified, 4, 'verified';
20 is
$result->age, 'age', 'age';
21 is
$result->size, 'size', 'size';
22 is
$result->seeders, 50, 'seeders';
23 is
$result->leechers, 50, 'leechers';
24 is
$result->infohash, '514131e668a8134bca9668ef2e19e690924adf86', 'infohash';
25 is
$result->magnet, 'magnet:?xt=urn:btih:514131e668a8134bca9668ef2e19e690924adf86&dn=Title', 'magnet';
This page took 0.048074 seconds and 4 git commands to generate.