]>
iEval git - app-musicexpo.git/blob - t/musicexpo-cache.t
5 use Test
::More tests
=> 3;
7 use File
::Temp qw
/tempfile/;
14 $file = (tempfile UNLINK
=> 1)[1];
15 @ARGV = (-cache
=> $file, 'empty.flac', 'empty.mp3');
17 BEGIN { use_ok
('App::MusicExpo'); }
21 open STDOUT
, '>', \
$out;
25 is
$out, <<'OUT', 'output is correct';
28 <meta charset="utf-8">
29 <link rel="stylesheet" href="/music.css">
33 <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
35 <tr><td><a href="%2Fmusic%2Fempty.flac">Cellule</a><td>Silence<td>L'autre endroit<td>Electro<td>01/09<td>2005<td>FLAC
36 <tr><td><a href="%2Fmusic%2Fempty.mp3">Cellule</a><td>Silence<td>L'autre endroit<td>Electro<td>01/09<td>2005<td>MP3
40 ok
-e
$file, 'cache exists';
41 tie
my %db, DB_File
=> $file;
This page took 0.04603 seconds and 4 git commands to generate.