[music-tag-coveralia.git] / t / Music-Tag-Coveralia.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::RequiresInternet qw/www.coveralia.com 80/;
use Test::More tests => 3;
use Music::Tag traditional => 1;
BEGIN { use_ok('Music::Tag::Coveralia') };

sub test {
	my ($artist, $album, $expect) = @_;
	my $mt = Music::Tag->new('t/empty.flac', {$ENV{TEST_VERBOSE} ? (verbose => 1) : (quiet => 1)});
	$mt->artist($artist);
	$mt->album($album);
	$mt->add_plugin('Coveralia');
	$mt->get_tag;
	my $exists = $expect ? 'exists' : 'does not exist';
	is $mt->has_data('picture'), $expect, "$artist - $album $exists"
}

test 'Metallica', 'Ride The Lightning', 1;
test 'Metal', 'Ride The Lightning', 0;
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;