]>
iEval git - app-musicexpo.git/blob - t/App-MusicExpo.t
5 use Test
::More tests
=> 19;
9 BEGIN { use_ok
('App::MusicExpo'); }
11 $App::MusicExpo
::caching
= 0;
13 my $flacinfo = thaw App
::MusicExpo
::flacinfo
'empty.flac';
14 my $mp3info = thaw App
::MusicExpo
::mp3info
'empty.mp3';
16 is
$flacinfo->{format
}, 'FLAC', 'flacinfo format';
17 is
$flacinfo->{title
}, 'Cellule', 'flacinfo title';
18 is
$flacinfo->{artist
}, 'Silence', 'flacinfo artist';
19 is
$flacinfo->{year
}, 2005, 'flacinfo year';
20 is
$flacinfo->{album
}, 'L'autre endroit', 'flacinfo album';
21 is
$flacinfo->{tracknumber
}, '01', 'flacinfo tracknumber';
22 is
$flacinfo->{tracktotal
}, '09', 'flacinfo tracktotal';
23 is
$flacinfo->{genre
}, 'Electro', 'flacinfo genre';
24 is
$flacinfo->{path
}, '/music/empty.flac', 'flacinfo path';
26 is
$mp3info->{format
}, 'MP3', 'mp3info format';
27 is
$mp3info->{title
}, 'Cellule', 'mp3info title';
28 is
$mp3info->{artist
}, 'Silence', 'mp3info artist';
29 is
$mp3info->{year
}, 2005, 'mp3info year';
30 is
$mp3info->{album
}, 'L'autre endroit', 'mp3info album';
31 is
$mp3info->{tracknumber
}, '01', 'mp3info tracknumber';
32 is
$mp3info->{tracktotal
}, '09', 'mp3info tracktotal';
33 is
$mp3info->{genre
}, 'Electro', 'mp3info genre';
34 is
$mp3info->{path
}, '/music/empty.mp3', 'mp3info path';
This page took 0.05465 seconds and 5 git commands to generate.