More tests

[app-musicexpo.git] / t / musicexpo.t
diff --git a/t/musicexpo.t b/t/musicexpo.t

new file mode 100644 (file)

index 0000000..b2f133c
--- /dev/null
+++ b/t/musicexpo.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -wT -CSDA
+use v5.14;
+use warnings;
+
+use Test::More tests => 2;
+
+use Storable qw/thaw/;
+
+BEGIN { use_ok('App::MusicExpo'); }
+
+close STDOUT;
+my $out;
+open STDOUT, '>', \$out;
+
+App::MusicExpo->run;
+
+is $out, <<'OUT', 'output is correct';
+<!DOCTYPE html>
+<title>Music</title>
+<meta charset="utf-8">
+<link rel="stylesheet" href="/music.css">
+
+<table border>
+<thead>
+<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
+<tbody>
+</table>
+OUT