Add tests for url to show report

lib/Ukigumo/Server/Util.pm

@@ -12,7 +12,7 @@ my $ansi = HTML::FromANSI::Tiny->new(
 
 # 行頭に行ごとのリンクをつけるの術
 sub make_line_link {
-    my $src = shift;
+    my $src = shift || '';
 
     my @lines = split /\r?\n/, $src;
     my $num = 1;

t/04-report.t

@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+use utf8;
+use Test::More;
+use t::Util;
+use Test::Requires 'LWP::Protocol::PSGI';
+
+use Ukigumo::Constants;
+use Ukigumo::Server::Command::Report;
+use LWP::UserAgent;
+
+my $app  = test_ukigumo;
+LWP::Protocol::PSGI->register($app);
+
+my $c = Ukigumo::Server->bootstrap;
+Ukigumo::Server::Command::Report->insert(
+    project => 'Foo',
+    branch  => 'bar',
+    status  => STATUS_SUCCESS,
+);
+my $ua = LWP::UserAgent->new();
+
+subtest 'exist' => sub {
+    my $res = $ua->get('http://localhost/report/1');
+    is($res->code, 200);
+};
+
+subtest 'not found' => sub {
+    my $res = $ua->get('http://localhost/report/2');
+    is($res->code, 404);
+};
+
+done_testing;
+