t/WebService-Strike-Torrent.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 14;
   6 BEGIN { use_ok('WebService::Strike::Torrent') }
   7
   8 my %data = (
   9         leeches => 13,
  10         size => 615514112,
  11         torrent_hash => 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04',
  12         file_count => 1,
  13         sub_category => '',
  14         torrent_category => 'Applications',
  15         file_info => {
  16                 file_names => [ 'archlinux-2015.01.01-dual.iso' ],
  17                 file_lengths => [ 615514112 ],
  18         },
  19         upload_date => 'Jan  6, 2015',
  20         seeds => 645,
  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)'
  24 );
  25
  26 my $t = WebService::Strike::Torrent->new(\%data);
  27
  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';