File: | t/test-simpleapp.t |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
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 | |||||||
5 | BEGIN { | ||||||
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>}; |