Changeset 17424 for lang/perl/HTTP-Engine/trunk/t/010_core/responsewriter-with_io.t

Timestamp:

08/11/08 18:27:16 (5 years ago)

Author:

yappo

Message:

add more test ResponseWriter?

Files:

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

lang/perl/HTTP-Engine/trunk/t/010_core/responsewriter-with_io.t

@@ -58 +58 @@
 
 OK!
+
+===
+--- input
+my $writer = HTTP::Engine::ResponseWriter->new(
+    should_write_response_line => 1,
+);
+
+tie *STDOUT, 'IO::Scalar', \my $out;
+
+my $req = HTTP::Engine::Request->new(
+    protocol => 'HTTP/1.1',
+    method => 'GET',
+);
+my $res = HTTP::Engine::Response->new(body => 'OK!', status => 200);
+$res->header( Connection => 'keepalive' );
+HTTP::Engine::ResponseFinalizer->finalize( $req, $res );
+$writer->finalize($req, $res);
+
+untie *STDOUT;
+
+$out;
+--- expected
+HTTP/1.1 200 OK
+Connection: keepalive
+Content-Length: 3
+Content-Type: text/html
+Status: 200
+
+OK!