t/artists.t

   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 => 9;
   9
  10 tm_new_engine('Coveralia::Artists');
  11 tm_run_test_no_approx(normal => $WWW::Search::Test::bogus_query, 0, 0);
  12 tm_run_test_no_approx(normal => 'Metallica', 1, 10);
  13 my $result = first { $_->title eq 'Metallica' } $WWW::Search::Test::oSearch->results;
  14 my @albums = $result->albums;
  15
  16 $result = first { $_->title eq 'And Justice For All' } @albums;
  17 is $result->year, 1988, 'And Justice For All was released in 1988';
  18 my %acovers = $result->covers;
  19 ok $acovers{frontal}, 'And Justice For All has a front cover';