1use strict;
2use warnings;
3use lib 't/lib';
4use Test::More;
5plan tests => 8;
6
7use HTTP::Engine;
8use HTTP::Engine::Middleware;
9use HTTP::Engine::Response;
10use HTTP::Request;
11
12our $i = 1;
13my $mw = HTTP::Engine::Middleware->new;
14$mw->install(qw/ Middleware::Zero Middleware::One Middleware::Two Middleware::Three /);
15my $res = HTTP::Engine->new(
16    interface => {
17        module          => 'Test',
18        request_handler => $mw->handler(
19            sub { HTTP::Engine::Response->new( body => 'ERROR2' ) }
20        ),
21    },
22)->run( HTTP::Request->new( GET => 'http://localhost/') );
23is $res->code, '200', 'response code';
24is $res->content, 'OK', 'response content';
25is $i++, 6, 'last';
26
27