File Coverage

File:t/test-simpleapp.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!/usr/bin/env perl -w
2
1
1
1
100
9
11
use strict;
3
1
1
1
10
2
7
use Cwd;
4
5BEGIN {
6
1
76
    my $cwd = getcwd;
7
1
10
    unshift @INC, "$cwd/t/lib";
8
1
7
    unshift @INC, "$cwd/t/SimpleApp/lib";
9}
10
11
1
1
1
107
4
12
use HTTP::Engine;
12
1
1
1
79
4
19
use HTTP::Request;
13
1
1
1
79
5
18
use Test::More tests => 1;
14
1
1
1
85
3
17
use SimpleApp;
15
16
1
61
chdir("t/SimpleApp");
17
1
1
1
74
4
11
use lib '../../lib';
18
19
1
120
$ENV{APP_ROOT} = getcwd;
20
21
1
25
my $engine = HTTP::Engine->new(
22    interface => {
23        module => 'Test',
24        request_handler => \&SimpleApp::handle_request
25    }
26);
27
28
1
18
my $response = $engine->run(
29    HTTP::Request->new(GET => 'http://localhost/welcome/here'),
30    env => \%ENV,
31    connection_info => {
32        request_uri => "/welcome/here"
33    }
34);
35
36
1
3
like $response->content, qr{<p>The answer is 42</p>};