The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl -w
use strict;
use Cwd;
use Moose ();

BEGIN {
    my $cwd = getcwd;
    unshift @INC, "$cwd/t/lib";
    unshift @INC, "$cwd/t/SimpleApp/lib";
}
use Test::More tests => 1;
use Railsish::Dispatcher;
use Railsish::Bootstrap;
use HTTP::Engine;
use HTTP::Request;

chdir("t/SimpleApp");
use lib '../../lib';

$ENV{APP_ROOT} = getcwd;

Railsish::Bootstrap->load_configs;
Railsish::Bootstrap->load_controllers;

my $engine = HTTP::Engine->new(
    interface => {
	module => 'Test',
	request_handler => sub {
            Railsish::Dispatcher->dispatch(@_)
        }
    }
);

my $response = $engine->run(
    HTTP::Request->new(GET => 'http://localhost/welcome/here'),
    env => \%ENV,
    connection_info => {
	request_uri => "/welcome/here"
    }
);

like $response->content, qr{<p>The answer is 42</p>};