[webservice-strike.git] / t / WebService-Strike-Torrent.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 14;
BEGIN { use_ok('WebService::Strike::Torrent') }

my %data = (
	leeches => 13,
	size => 615514112,
	torrent_hash => 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04',
	file_count => 1,
	sub_category => '',
	torrent_category => 'Applications',
	file_info => {
		file_names => [ 'archlinux-2015.01.01-dual.iso' ],
		file_lengths => [ 615514112 ],
	},
	upload_date => 'Jan  6, 2015',
	seeds => 645,
	uploader_username => 'The_Doctor-',
	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',
	torrent_title => 'Arch Linux 2015.01.01 (x86/x64)'
);

my $t = WebService::Strike::Torrent->new(\%data);

is $t->hash, 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04', 'hash';
is $t->title, 'Arch Linux 2015.01.01 (x86/x64)', 'title';
is $t->category, 'Applications', 'category';
is $t->sub_category, '', 'sub_category';
is $t->seeds, 645, 'seeds';
is $t->leeches, 13, 'leeches';
is $t->count, 1, 'count';
is $t->size, 615514112, 'size';
is $t->date, 1420502400,'date';
is $t->uploader, 'The_Doctor-', 'uploader';
is $t->names->[0], 'archlinux-2015.01.01-dual.iso', 'names';
is $t->lengths->[0], 615514112, 'lengths';
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';
Commit	Line	Data
27da1d36 MG	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,
95b1c120 MG	10	size => 615514112,
95b1c120 MG	11	torrent_hash => 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04',
27da1d36 MG	12	file_count => 1,
	13	sub_category => '',
	14	torrent_category => 'Applications',
95b1c120	15	file_info => {
27da1d36 MG	16	file_names => [ 'archlinux-2015.01.01-dual.iso' ],
27da1d36 MG	17	file_lengths => [ 615514112 ],
95b1c120	18	},
27da1d36 MG	19	upload_date => 'Jan 6, 2015',
	20	seeds => 645,
	21	uploader_username => 'The_Doctor-',
95b1c120	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',
27da1d36 MG	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';
95b1c120	35	is $t->size, 615514112, 'size';
f447922d	36	is $t->date, 1420502400,'date';
27da1d36 MG	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';
95b1c120	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';