]>
Commit | Line | Data |
---|---|---|
0feded2e MG |
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; |