t/WWW-Search-Torrentz-Result.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 9;
   6 BEGIN { use_ok('WWW::Search::Torrentz::Result') };
   7
   8 my $result = WWW::Search::Torrentz::Result->new(
   9         title => 'Title',
  10         verified => 4,
  11         age => 'age',
  12         size => 'size',
  13         seeders => 50,
  14         leechers => 50,
  15         infohash => '514131e668a8134bca9668ef2e19e690924adf86',
  16 );
  17
  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';