t/Music-Tag-Coveralia.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::RequiresInternet qw/www.coveralia.com 80/;
   6 use Test::More tests => 3;
   7 use Music::Tag traditional => 1;
   8 BEGIN { use_ok('Music::Tag::Coveralia') };
   9
  10 sub test {
  11         my ($artist, $album, $expect) = @_;
  12         my $mt = Music::Tag->new('t/empty.flac', {$ENV{TEST_VERBOSE} ? (verbose => 1) : (quiet => 1)});
  13         $mt->artist($artist);
  14         $mt->album($album);
  15         $mt->add_plugin('Coveralia');
  16         $mt->get_tag;
  17         my $exists = $expect ? 'exists' : 'does not exist';
  18         is $mt->has_data('picture'), $expect, "$artist - $album $exists"
  19 }
  20
  21 test 'Metallica', 'Ride The Lightning', 1;
  22 test 'Metal', 'Ride The Lightning', 0;