]> iEval git - app-musicexpo.git/blame_incremental - t/musicexpo.t
Set POD encoding to utf-8
[app-musicexpo.git] / t / musicexpo.t
... / ...
CommitLineData
1#!/usr/bin/perl -wT
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">
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
29<pre id="json" style="display: none">{"files":[],"prefix":"/music/"}</pre>
30OUT
This page took 0.015874 seconds and 4 git commands to generate.