| 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 |