Changeset 13365

Timestamp:

06/07/08 10:21:02 (5 years ago)

Author:

nothingmuch

Message:

more helpful request builder test

Files:

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

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

@@ -5 +5 @@
 use IO::Scalar;
 
-plan tests => 7;
+plan tests => 8;
 
 can_ok(
@@ -42 +42 @@
 --- body
 --- test
-is $c->req->address, '127.0.0.1';
+is $c->req->address, '127.0.0.1', "request address";
 
 ===
@@ -55 +55 @@
 --- body: a=b&c=d
 --- test
-is_deeply $c->req->body_params, {a => 'b', c => 'd'};
+is_deeply $c->req->body_params, {a => 'b', c => 'd'}, "body params";
 
 ===
@@ -70 +70 @@
 isa_ok $c->req->body, 'IO::Handle';
 $c->req->body->sysread(my $buf, $c->req->content_length);
-is $buf, 'OCTET STREAM';
+is $buf, 'OCTET STREAM', "buffer";
 
 === cookie
@@ -84 +84 @@
 --- body: OCTET STREAM
 --- test
-is $c->req->cookie('unknown'), undef;
-is $c->req->cookie('foo')->value, 'hoge';
+is $c->req->cookie('unknown'), undef, "unknown cookie";
+isa_ok( $c->req->cookie('foo'), "CGI::Simple::Cookie" );
+is $c->req->cookie('foo')->value, 'hoge', "cookie value";