X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Fmusicexpo-cache.t;h=b703b7a035608cf81cd24fb0ed017cc46b1f3914;hb=f7964165707b3e45f93960236a695596fa62bcd1;hp=21f5d99aad3d131d06ab3a773af11bd485280bf7;hpb=8086953ce18631a75cca3f1e6d5a53f2c1b6710f;p=app-musicexpo.git diff --git a/t/musicexpo-cache.t b/t/musicexpo-cache.t index 21f5d99..b703b7a 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'); } @@ -20,22 +18,41 @@ close STDOUT; my $out; open STDOUT, '>', \$out; +my %handled = map { $_ => 1 } App::MusicExpo::extensions_handled; + +my $prefix = 'CelluleSilenceL'autre endroitElectro01/092005'; + +my @lines; +if ($handled{'.flac'} && $handled{'.ogg'}) { + push @lines, $prefix . 'FLAC Vorbis ' +} elsif ($handled{'.flac'}) { + push @lines, $prefix . 'FLAC ' +} elsif ($handled{'.ogg'}) { + push @lines, $prefix . 'Vorbis ' +} + +push @lines, $prefix . 'Opus ' if $handled{'.opus'}; +push @lines, $prefix . 'MP3 ' if $handled{'.mp3'}; +push @lines, 'L'autre endroitElectro1/92005AAC ' if $handled{'.aac'}; + +my $contents = join "\n", @lines; + App::MusicExpo->run; -is $out, <<'OUT', 'output is correct'; +is $out, <<"OUT", 'output is correct'; Music - + + + +
-$contents
TitleArtistAlbumGenreTrackYearType -
CelluleSilenceL'autre endroitElectro01/092005FLAC -
CelluleSilenceL'autre endroitElectro01/092005MP3 +
OUT ok -e $file, 'cache exists'; -tie my %db, DB_File => $file;