X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Fmusicexpo-cache.t;h=47e07c9069d1ce93beb9eb31c624120a9dfb317c;hb=3ae7eb15f60751bb36dcf6be01c7c4c997b3ba7c;hp=0e45058d63b6b62aafebfb0774ceafec26c8837b;hpb=1fc49a0cf1f822b383d5a464592d3abb6868222e;p=app-musicexpo.git diff --git a/t/musicexpo-cache.t b/t/musicexpo-cache.t index 0e45058..47e07c9 100644 --- a/t/musicexpo-cache.t +++ b/t/musicexpo-cache.t @@ -1,18 +1,16 @@ -#!/usr/bin/perl -wT +#!/usr/bin/perl -w use v5.14; 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'); } @@ -26,7 +24,7 @@ is $out, <<'OUT', 'output is correct'; Music - +
@@ -35,11 +33,11 @@ is $out, <<'OUT', 'output is correct'; TitleArtistAlbumGenreTrackYearType -CelluleSilenceL'autre endroitElectro01/092005FLAC MP3 +CelluleSilenceL'autre endroitElectro01/092005FLAC Vorbis +CelluleSilenceL'autre endroitElectro01/092005Opus +CelluleSilenceL'autre endroitElectro01/092005MP3 +CelluleSilenceL'autre endroitElectro1/92005AAC - - OUT ok -e $file, 'cache exists'; -tie my %db, DB_File => $file;