Initial import
This commit is contained in:
commit
1ff831f80d
19 changed files with 956 additions and 0 deletions
5
t/001_base.t
Normal file
5
t/001_base.t
Normal 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
16
t/002_index_route.t
Normal 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' );
|
Reference in a new issue