Improve tests

[app-musicexpo.git] / t / musicexpo-cache.t

diff --git a/t/musicexpo-cache.t b/t/musicexpo-cache.t
index 0915c999544d59bdfab3ce06b426f40f2111daa1..81016c54d7d4f621bc1b4ac8300271e94c265760 100644 (file)
--- 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 <empty*>);
 }
 BEGIN { use_ok('App::MusicExpo'); }
 
@@ -35,9 +33,10 @@ is $out, <<'OUT', 'output is correct';
 <thead>
 <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
 <tbody>
-<tr><td class="title"><a href="#silence-cellule" data-hash="#silence-cellule">Cellule</a><td class="artist">Silence<td class="album">L&#39;autre endroit<td class="genre">Electro<td class="track">01/09<td class="year">2005<td class="formats"><a href="/music/empty.flac">FLAC</a> <a href="/music/empty.mp3">MP3</a> 
+<tr><td class="title"><a href="#silence-cellule" data-hash="#silence-cellule">Cellule</a><td class="artist">Silence<td class="album">L&#39;autre endroit<td class="genre">Electro<td class="track">01/09<td class="year">2005<td class="formats"><a href="/music/empty.flac">FLAC</a> <a href="/music/empty.ogg">Vorbis</a> 
+<tr><td class="title"><a href="#silence-cellule" data-hash="#silence-cellule">Cellule</a><td class="artist">Silence<td class="album">L&#39;autre endroit<td class="genre">Electro<td class="track">01/09<td class="year">2005<td class="formats"><a href="/music/empty3.mp3">MP3</a> 
+<tr><td class="title"><a href="#silence-cellule" data-hash="#silence-cellule">Cellule</a><td class="artist">Silence<td class="album">L&#39;autre endroit<td class="genre">Electro<td class="track">1/9<td class="year">2005<td class="formats"><a href="/music/empty4.aac">AAC</a> 
 </table>
 OUT
 
 ok -e $file, 'cache exists';
-tie my %db, DB_File => $file;