Initial import

This commit is contained in:
Lucas 2023-02-18 09:49:05 +00:00
commit 1ff831f80d
19 changed files with 956 additions and 0 deletions

5
t/001_base.t Normal file
View file

@ -0,0 +1,5 @@
use strict;
use warnings;
use Test::More tests => 1;
use_ok 'PoorBooru';

16
t/002_index_route.t Normal file
View file

@ -0,0 +1,16 @@
use strict;
use warnings;
use PoorBooru;
use Test::More tests => 2;
use Plack::Test;
use HTTP::Request::Common;
use Ref::Util qw<is_coderef>;
my $app = PoorBooru->to_app;
ok( is_coderef($app), 'Got app' );
my $test = Plack::Test->create($app);
my $res = $test->request( GET '/' );
ok( $res->is_success, '[GET /] successful' );