]> iEval git - app-musicexpo.git/blob - t/musicexpo.t
Bump version and update Changes
[app-musicexpo.git] / t / musicexpo.t
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
This page took 0.043951 seconds and 4 git commands to generate.