[www-search-coveralia.git] / t / albums.t

#!/usr/bin/perl
use v5.14;
use warnings;

use List::Util qw/first/;
use WWW::Search::Test;

use Test::More tests => 11;

tm_new_engine('Coveralia::Albums');
tm_run_test_no_approx(normal => $WWW::Search::Test::bogus_query, 0, 0);
tm_run_test_no_approx(normal => 'And Justice For All', 1, 10);
my $result = first { $_->artist eq 'Metallica' } $WWW::Search::Test::oSearch->results;
is $result->year, 1988, 'And Justice For All was released in 1988';

my @songs = $result->songs;
my %covers = $result->covers;
ok ((first { $_->{name} eq 'The Shortest Straw' } @songs), 'And Justice For All contains The Shortest Straw');
ok $covers{frontal}, 'And Justice For All has a front cover';
is $result->cover('frontal'), $covers{frontal}, '->cover works';
Commit	Line	Data
a97b490d MG	1	#!/usr/bin/perl
	2	use v5.14;
	3	use warnings;
	4
	5	use List::Util qw/first/;
	6	use WWW::Search::Test;
	7
	8	use Test::More tests => 11;
	9
	10	tm_new_engine('Coveralia::Albums');
	11	tm_run_test_no_approx(normal => $WWW::Search::Test::bogus_query, 0, 0);
	12	tm_run_test_no_approx(normal => 'And Justice For All', 1, 10);
	13	my $result = first { $_->artist eq 'Metallica' } $WWW::Search::Test::oSearch->results;
	14	is $result->year, 1988, 'And Justice For All was released in 1988';
	15
	16	my @songs = $result->songs;
	17	my %covers = $result->covers;
	18	ok ((first { $_->{name} eq 'The Shortest Straw' } @songs), 'And Justice For All contains The Shortest Straw');
	19	ok $covers{frontal}, 'And Justice For All has a front cover';
	20	is $result->cover('frontal'), $covers{frontal}, '->cover works';