X-Git-Url: http://git.ieval.ro/?p=app-musicexpo.git;a=blobdiff_plain;f=t%2Fmusicexpo-cache.t;h=81016c54d7d4f621bc1b4ac8300271e94c265760;hp=0915c999544d59bdfab3ce06b426f40f2111daa1;hb=a535e8790ef7f825c6049e16dff723d9e9b54634;hpb=00b6ce9d492d47008f6569744cb8e031c9d04468 diff --git a/t/musicexpo-cache.t b/t/musicexpo-cache.t index 0915c99..81016c5 100644 --- a/t/musicexpo-cache.t +++ b/t/musicexpo-cache.t @@ -5,14 +5,12 @@ use warnings; use Test::More tests => 3; use File::Temp qw/tempfile/; -use DB_File; -use Storable qw/thaw/; my $file; BEGIN { $file = (tempfile UNLINK => 1)[1]; - @ARGV = (-cache => $file, 'empty.flac', 'empty.mp3'); + @ARGV = (-cache => $file, sort ); } BEGIN { use_ok('App::MusicExpo'); } @@ -35,9 +33,10 @@ is $out, <<'OUT', 'output is correct'; TitleArtistAlbumGenreTrackYearType -CelluleSilenceL'autre endroitElectro01/092005FLAC MP3 +CelluleSilenceL'autre endroitElectro01/092005FLAC Vorbis +CelluleSilenceL'autre endroitElectro01/092005MP3 +CelluleSilenceL'autre endroitElectro1/92005AAC OUT ok -e $file, 'cache exists'; -tie my %db, DB_File => $file;