Changeset 17082 for lang/perl/HTTP-Engine/branches

Timestamp:

08/05/08 00:46:08 (5 years ago)

Author:

tokuhirom

Message:

test $c->req->base.

Files:

• lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test.t (modified) (3 diffs)

lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test.t

@@ -19 +19 @@
             request_handler => sub {
                 my $c = shift;
+                eval $block->code;
+                die $@ if $@;
                 $c->res->header( 'X-Req-Test' => "ping" );
                 $c->res->body('OK!');
@@ -39 +41 @@
 
 ===
+--- code
 --- response
 Content-Length: 3
@@ -46 +49 @@
 
 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!
+