File Coverage

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

linestmtbrancondsubpodtimecode
1#!/usr/bin/env perl -w
2
1
1
1
101
10
9
use strict;
3
1
1
1
10
3
10
use Cwd;
4
1
1
1
101
5
5
use Moose ();
5
6BEGIN {
7
1
114
    my $cwd = getcwd;
8
1
10
    unshift @INC, "$cwd/t/lib";
9
1
9
    unshift @INC, "$cwd/t/SimpleApp/lib";
10}
11
1
1
1
80
5
17
use Test::More tests => 1;
12
1
1
1
85
5
22
use Railsish::Dispatcher;
13
1
1
1
79
4
13
use Railsish::Bootstrap;
14
1
1
1
82
5
19
use HTTP::Engine;
15
1
1
1
128
4
20
use HTTP::Request;
16
17
1
54
chdir("t/SimpleApp");
18
1
1
1
82
5
10
use lib '../../lib';
19
20
1
113
$ENV{APP_ROOT} = getcwd;
21
22
1
12
Railsish::Bootstrap->load_configs;
23
1
36
Railsish::Bootstrap->load_controllers;
24
25my $engine = HTTP::Engine->new(
26    interface => {
27        module => 'Test',
28        request_handler => sub {
29
1
34
            Railsish::Dispatcher->dispatch(@_)
30        }
31    }
32
1
153
);
33
34
1
78
my $response = $engine->run(
35    HTTP::Request->new(GET => 'http://localhost/welcome/here'),
36    env => \%ENV,
37    connection_info => {
38        request_uri => "/welcome/here"
39    }
40);
41
42
1
3
like $response->content, qr{<p>The answer is 42</p>};