Changeset 17302

Timestamp:

08/10/08 00:56:54 (5 years ago)

Author:

tokuhirom

Message:

test H::E::Request directly.

Files:

• lang/perl/HTTP-Engine/trunk/t/010_core/request-as_http_request.t (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/t/010_core/request-as_http_request.t

@@ -2 +2 @@
 use warnings;
 use Test::More tests => 5;
-use HTTP::Engine::Context;
+use HTTP::Engine::Request;
+use HTTP::Engine::RequestBuilder;
 
-test_req( gen_context()->req->as_http_request );
+test_req( gen_request()->as_http_request );
 
-sub gen_context {
-    my $c = HTTP::Engine::Context->new;
-    $c->req->method('POST');
-    $c->req->uri('/foo');
-    $c->req->content_type('application/octet-stream');
-    $c->req->raw_body('foo=bar');
-    $c;
+sub gen_request {
+    my $req = HTTP::Engine::Request->new(
+        request_builder => HTTP::Engine::RequestBuilder->new,
+    );
+    $req->method('POST');
+    $req->uri('/foo');
+    $req->content_type('application/octet-stream');
+    $req->raw_body('foo=bar');
+    $req;
 }