17 lines
332 B
Perl
17 lines
332 B
Perl
|
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' );
|