Fix test

[app-musicexpo.git] / t / musicexpo-cache.t
diff --git a/t/musicexpo-cache.t b/t/musicexpo-cache.t

index 635f671e34587e21d515b3b982c53d327cd92f88..6ed30460d779a905ff9dd5bbe29575799d080081 100644 (file)
--- a/t/musicexpo-cache.t
+++ b/t/musicexpo-cache.t
@@ -1,18 +1,16 @@
-#!/usr/bin/perl -wT -CSDA
+#!/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 <empty*>);
  }
  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 = '<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">';
+
+my @lines;
+if ($handled{'.flac'} && $handled{'.ogg'}) {
+       push @lines, $prefix . '<a href="/music/empty.flac">FLAC</a> <a href="/music/empty.ogg">Vorbis</a> '
+} elsif ($handled{'.flac'}) {
+       push @lines, $prefix . '<a href="/music/empty.flac">FLAC</a> '
+} elsif ($handled{'.ogg'}) {
+       push @lines, $prefix . '<a href="/music/empty.ogg">Vorbis</a> '
+}
+
+push @lines, $prefix . '<a href="/music/empty2.opus">Opus</a> ' if $handled{'.opus'};
+push @lines, $prefix . '<a href="/music/empty3.mp3">MP3</a> ' if $handled{'.mp3'};
+push @lines, '<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> ' if $handled{'.aac'};
+
+my $contents = join '', map { "\n$_" } @lines;
+
  App::MusicExpo->run;
  
-is $out, <<'OUT', 'output is correct';
+is $out, <<"OUT", 'output is correct';
  <!DOCTYPE html>
  <title>Music</title>
  <meta charset="utf-8">
-<link rel="stylesheet" href="/music.css">
+<link rel="stylesheet" href="musicexpo.css">
+<script async defer type="application/javascript" src="player.js"></script>
+
+<div id="player"></div>
  
  <table border>
  <thead>
  <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
-<tbody>
-<tr><td><a href="%2Fmusic%2Fempty.flac">Cellule</a><td>Silence<td>L&#39;autre endroit<td>Electro<td>01/09<td>2005<td>FLAC
-<tr><td><a href="%2Fmusic%2Fempty.mp3">Cellule</a><td>Silence<td>L&#39;autre endroit<td>Electro<td>01/09<td>2005<td>MP3
+<tbody>$contents
  </table>
  OUT
  
  ok -e $file, 'cache exists';
-tie my %db, DB_File => $file;