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