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
  23 <table border>
  24 <thead>
  25 <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
  26 <tbody>
  27 </table>
  28 OUT