]>
Commit | Line | Data |
---|---|---|
8086953c | 1 | #!/usr/bin/perl -wT |
23867054 MG |
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"> | |
1fc49a0c MG |
22 | <script async defer type="application/javascript" src="player.js"></script> |
23 | ||
24 | <div id="player"></div> | |
23867054 MG |
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> | |
95267d4f MG |
31 | |
32 | <pre id="json" style="display: none">{"files":[],"prefix":"/music/"}</pre> | |
23867054 | 33 | OUT |