[app-musicexpo.git] / t / App-MusicExpo.t

#!/usr/bin/perl -wT
use v5.14;
use warnings;

use Test::More tests => 37;

use Scalar::Util qw/looks_like_number/;
use Storable qw/thaw/;

BEGIN { use_ok('App::MusicExpo'); }

my %data = (
	title       => 'Cellule',
	artist      => 'Silence',
	year        => 2005,
	album       => 'L\'autre endroit',
	tracknumber => 1,
	tracktotal  => 9,
	genre       => 'Electro'
);

sub test {
	my ($format, $sub, $file) = @_;
	my $info = thaw $sub->($file);
	is $info->{format}, $format, "$format format";
	for (sort keys %data) {
		my $op = looks_like_number $data{$_} ? '==' : 'eq';
		cmp_ok $info->{$_}, $op, $data{$_}, "$format $_"
	}
	is $info->{file}, $file, "$format file";
}

test FLAC   => \&App::MusicExpo::flacinfo,   'empty.flac';
test MP3    => \&App::MusicExpo::mp3info,    'empty3.mp3';
test Vorbis => \&App::MusicExpo::vorbisinfo, 'empty.ogg';
test AAC    => \&App::MusicExpo::mp4info,    'empty4.aac';
Commit	Line	Data
8086953c	1	#!/usr/bin/perl -wT
21cd9240 MG	2	use v5.14;
	3	use warnings;
	4
12d4da0a	5	use Test::More tests => 37;
21cd9240	6
b484a129	7	use Scalar::Util qw/looks_like_number/;
21cd9240 MG	8	use Storable qw/thaw/;
	9
	10	BEGIN { use_ok('App::MusicExpo'); }
	11
b484a129 MG	12	my %data = (
	13	title => 'Cellule',
	14	artist => 'Silence',
	15	year => 2005,
	16	album => 'L\'autre endroit',
	17	tracknumber => 1,
	18	tracktotal => 9,
	19	genre => 'Electro'
	20	);
	21
	22	sub test {
	23	my ($format, $sub, $file) = @_;
	24	my $info = thaw $sub->($file);
	25	is $info->{format}, $format, "$format format";
	26	for (sort keys %data) {
	27	my $op = looks_like_number $data{$_} ? '==' : 'eq';
	28	cmp_ok $info->{$_}, $op, $data{$_}, "$format $_"
	29	}
	30	is $info->{file}, $file, "$format file";
	31	}
	32
	33	test FLAC => \&App::MusicExpo::flacinfo, 'empty.flac';
	34	test MP3 => \&App::MusicExpo::mp3info, 'empty3.mp3';
	35	test Vorbis => \&App::MusicExpo::vorbisinfo, 'empty.ogg';
	36	test AAC => \&App::MusicExpo::mp4info, 'empty4.aac';