[www-search-torrentz.git] / t / WWW-Search-Torrentz-Result.t

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

use Test::More tests => 9;
BEGIN { use_ok('WWW::Search::Torrentz::Result') };

my $result = WWW::Search::Torrentz::Result->new(
  title => 'Title',
  verified => 4,
  age => 'age',
  size => 'size',
  seeders => 50,
  leechers => 50,
  infohash => '514131e668a8134bca9668ef2e19e690924adf86',
);

is $result->title, 'Title', 'title';
is $result->verified, 4, 'verified';
is $result->age, 'age', 'age';
is $result->size, 'size', 'size';
is $result->seeders, 50, 'seeders';
is $result->leechers, 50, 'leechers';
is $result->infohash, '514131e668a8134bca9668ef2e19e690924adf86', 'infohash';
is $result->magnet, 'magnet:?xt=urn:btih:514131e668a8134bca9668ef2e19e690924adf86&dn=Title', 'magnet';
Commit	Line	Data
e605ae0f MG	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';