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