]> iEval git - app-musicexpo.git/blame - t/musicexpo.t
Click song titles to play certain songs
[app-musicexpo.git] / t / musicexpo.t
CommitLineData
8086953c 1#!/usr/bin/perl -wT
23867054
MG
2use v5.14;
3use warnings;
4
5use Test::More tests => 2;
6
7use Storable qw/thaw/;
8
9BEGIN { use_ok('App::MusicExpo'); }
10
11close STDOUT;
12my $out;
13open STDOUT, '>', \$out;
14
15App::MusicExpo->run;
16
17is $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 33OUT
This page took 0.020681 seconds and 4 git commands to generate.