Changeset 11092 for lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t

Timestamp:

05/04/08 19:27:07 (5 years ago)

Author:

tokuhirom

Message:

added test cases for handling cookie.

Files:

• lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t

@@ -5 +5 @@
 use IO::Scalar;
 
-plan tests => 5;
+plan tests => 7;
 
 can_ok(
@@ -71 +71 @@
 is $buf, 'OCTET STREAM';
 
+=== cookie
+--- env
+REMOTE_ADDR:    127.0.0.1
+SERVER_PORT:    80
+QUERY_STRING:   ''
+REQUEST_METHOD: 'POST'
+HTTP_HOST: localhost
+HTTP_CONTENT_LENGTH: 12
+HTTP_CONTENT_TYPE: application/octet-stream
+HTTP_COOKIE: foo=hoge; foo=hoge; path=/
+--- body: OCTET STREAM
+--- test
+is $c->req->cookie('unknown'), undef;
+is $c->req->cookie('foo')->value, 'hoge';
+