| 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>}; | ||||