| 1 | #!/usr/bin/perl -w |
| 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="musicexpo.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 | OUT |