Changeset 18361 for lang/perl/HTTP-Engine-Compat/trunk/t/010_core/request_processor-response_error.t

Timestamp:

08/28/08 08:08:56 (4 months ago)

Author:

tokuhirom

Message:

rewrote

Files:

• lang/perl/HTTP-Engine-Compat/trunk/t/010_core/request_processor-response_error.t (modified) (1 diff)

lang/perl/HTTP-Engine-Compat/trunk/t/010_core/request_processor-response_error.t

@@ -38 +38 @@
             $code->();
         } HTTP::Request->new( GET => 'http://localhost/');
-        is $res->code, 200;
-        is $res->content, $content, $content;
+        is $res->status, 200;
+        is $res->body, $content, $content;
     }
 }