| 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; |