5 use List
::Util qw
/first/;
8 use Test
::RequiresInternet qw
/www.coveralia.com 80/;
9 use Test
::More tests
=> 11;
11 tm_new_engine
('Coveralia::Albums');
12 tm_run_test_no_approx
(normal
=> $WWW::Search
::Test
::bogus_query
, 0, 0);
13 tm_run_test_no_approx
(normal
=> 'And Justice For All', 1, 10);
14 my $result = first
{ $_->artist eq 'Metallica' } $WWW::Search
::Test
::oSearch
->results;
15 is
$result->year, 1988, 'And Justice For All was released in 1988';
17 my @songs = $result->songs;
18 my %covers = $result->covers;
19 ok
((first
{ $_->{name
} eq 'The Shortest Straw' } @songs), 'And Justice For All contains The Shortest Straw');
20 ok
$covers{frontal
}, 'And Justice For All has a front cover';
21 is
$result->cover('frontal'), $covers{frontal
}, '->cover works';
This page took 0.023381 seconds and 4 git commands to generate.