]> iEval git - app-musicexpo.git/blame - t/musicexpo.t
Update Makefile.PL
[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">
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>
28OUT
This page took 0.025375 seconds and 4 git commands to generate.