Index: lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test.t
===================================================================
--- lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test.t (revision 17073)
+++ lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test.t (revision 17082)
@@ -19,4 +19,6 @@
             request_handler => sub {
                 my $c = shift;
+                eval $block->code;
+                die $@ if $@;
                 $c->res->header( 'X-Req-Test' => "ping" );
                 $c->res->body('OK!');
@@ -39,4 +41,5 @@
 
 ===
+--- code
 --- response
 Content-Length: 3
@@ -46,2 +49,15 @@
 
 OK!
+
+=== $c->req->base
+--- code
+$c->res->header('X-Req-Base' => $c->req->base);
+--- response
+Content-Length: 3
+Content-Type: text/html
+Status: 200
+X-Req-Base: http://localhost/
+X-Req-Test: ping
+
+OK!
+