t/musicexpo.t

   1 #!/usr/bin/perl -wT
   2 use v5.14;
   3 use warnings;
   4
   5 use Test::More tests => 2;
   6
   7 use Storable qw/thaw/;
   8
   9 BEGIN { use_ok('App::MusicExpo'); }
  10
  11 close STDOUT;
  12 my $out;
  13 open STDOUT, '>', \$out;
  14
  15 App::MusicExpo->run;
  16
  17 is $out, <<'OUT', 'output is correct';
  18 <!DOCTYPE html>
  19 <title>Music</title>
  20 <meta charset="utf-8">
  21 <link rel="stylesheet" href="/music.css">
  22 <script async defer type="application/javascript" src="player.js"></script>
  23
  24 <div id="player"></div>
  25
  26 <table border>
  27 <thead>
  28 <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
  29 <tbody>
  30 </table>
  31
  32 <pre id="json" style="display: none">{"files":[],"prefix":"/music/"}</pre>
  33 OUT