[app-musicexpo.git] / t / musicexpo.t

#!/usr/bin/perl -wT
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
Commit	Line	Data
8086953c	1	#!/usr/bin/perl -wT
23867054 MG	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="/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	OUT