16 lines
304 B
Perl
16 lines
304 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use MyWeb::App;
|
||
|
|
use Test::More tests => 2;
|
||
|
|
use Plack::Test;
|
||
|
|
use HTTP::Request::Common;
|
||
|
|
|
||
|
|
my $app = MyWeb::App->to_app;
|
||
|
|
is( ref $app, 'CODE', 'Got app' );
|
||
|
|
|
||
|
|
my $test = Plack::Test->create($app);
|
||
|
|
my $res = $test->request( GET '/' );
|
||
|
|
|
||
|
|
ok( $res->is_success, '[GET /] successful' );
|