From 12d4da0a00f8e1843a7b8624c3bf2d2faf0fa70b Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 25 Oct 2014 15:00:09 +0300 Subject: [PATCH] Add test for AAC --- MANIFEST | 2 ++ empty.aac | Bin 0 -> 1273 bytes t/App-MusicExpo.t | 13 ++++++++++++- 3 files changed, 14 insertions(+), 1 deletion(-) create mode 100644 empty.aac diff --git a/MANIFEST b/MANIFEST index 6b43953..f2ca44a 100644 --- a/MANIFEST +++ b/MANIFEST @@ -7,6 +7,8 @@ t/musicexpo-cache.t t/musicexpo.t lib/App/MusicExpo.pm musicexpo +empty.aac empty.mp3 empty.flac empty.ogg + diff --git a/empty.aac b/empty.aac new file mode 100644 index 0000000000000000000000000000000000000000..e8695dcb6660bccb4971ba8d56bf794a258b0063 GIT binary patch literal 1273 zcmbtTT}TvB6uzrgMn+q%rLnNHCJ3R+?7D`K;QE&@38q^?wBYQ{U7dDjXPUVqXapAg`G3ItGm@(A3OVnIiyXMGFQbLsifR6vuT+fp00Iz`Xn0iL1-e;jOshBu!7(uZOiUH`zP<=EUQv z#+eo4U6xCRyWZGLWA52rR74!@pj-taU|9`$n5x65u^ zn2kO>H8(YRwXO8#$XcYTqUk*$MSew92cS<`8R!?W@%f9PANUY*r;U&jLLBxFr8L0L z!ykSqPyEX%fZd)kT}Xg(o+a#>yS8g$H3ZbnfgSv#PIhH>Stx7R?1(6$B!I~&;=j*z z`nkQZvR{<-Y^tG}$*i4aN2wwu;)e1uGyoXSXf|`84cSWi4{}H`JWz!A;Bgr&rUD}{j|ci`icA3h zqEKWT-rPaL@O44c@aS1MUP!XR!1Gv10dL76xEPp>o03*4%chJM#$z>i3YdBeoLZB8Sb-tj_AE@EZv~+WdDpJl5 zsZVMFz;1;K_6HYJ6(7!v`lPU#r1%b9FeN-N!AMVMR|}Y 28; +use Test::More tests => 37; use Storable qw/thaw/; @@ -11,6 +11,7 @@ BEGIN { use_ok('App::MusicExpo'); } my $flacinfo = thaw App::MusicExpo::flacinfo 'empty.flac'; my $mp3info = thaw App::MusicExpo::mp3info 'empty.mp3'; my $vorbisinfo = thaw App::MusicExpo::vorbisinfo 'empty.ogg'; +my $mp4info = thaw App::MusicExpo::mp4info 'empty.aac'; is $flacinfo->{format}, 'FLAC', 'flacinfo format'; is $flacinfo->{title}, 'Cellule', 'flacinfo title'; @@ -41,3 +42,13 @@ is $vorbisinfo->{tracknumber}, '01', 'vorbisinfo tracknumber'; is $vorbisinfo->{tracktotal}, '09', 'vorbisinfo tracktotal'; is $vorbisinfo->{genre}, 'Electro', 'vorbisinfo genre'; is $vorbisinfo->{file}, 'empty.ogg', 'vorbisinfo path'; + +is $mp4info->{format}, 'AAC', 'mp4info format'; +is $mp4info->{title}, 'Cellule', 'mp4info title'; +is $mp4info->{artist}, 'Silence', 'mp4info artist'; +is $mp4info->{year}, 2005, 'mp4info year'; +is $mp4info->{album}, 'L\'autre endroit', 'mp4info album'; +is $mp4info->{tracknumber}, '1', 'mp4info tracknumber'; +is $mp4info->{tracktotal}, '9', 'mp4info tracktotal'; +is $mp4info->{genre}, 'Electro', 'mp4info genre'; +is $mp4info->{file}, 'empty.aac', 'mp4info path'; -- 2.39.2