09b2bde29c9ba1261943134b34d30f8ffd9c4f3d
5 use Test
::More tests
=> 37;
7 use Scalar
::Util qw
/looks_like_number/;
10 BEGIN { use_ok
('App::MusicExpo'); }
16 album
=> 'L\'autre endroit',
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 $_"
30 is
$info->{file
}, $file, "$format file";
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';
This page took 0.02418 seconds and 3 git commands to generate.