Changeset 17525

Timestamp:

08/12/08 17:33:35 (5 years ago)

Author:

yappo

Message:

remove broken writer test case

Location:

lang/perl/HTTP-Engine/trunk/t/010_core

Files:

• response_writer.t (modified) (2 diffs)
• responsewriter-with_io.t (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/t/010_core/response_writer.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 4;
 use IO::Scalar;
 use_ok "HTTP::Engine::ResponseWriter";
@@ -42 +42 @@
 
 is $out, $expected;
-
-
-do {
-    my $req = HTTP::Engine::Request->new;
-    $req->protocol('HTTP/1.1');
-    $req->method('GET');
-
-    my $res = HTTP::Engine::Response->new(status => '200', body => 'OK');
-
-    my $rw = HTTP::Engine::ResponseWriter->new(should_write_response_line => 1);
-    HTTP::Engine::ResponseFinalizer->finalize( $req, $res );
-
-    do {
-        local $@;
-        no warnings 'redefine';
-        my $write;
-        local *HTTP::Engine::ResponseWriter::_write = sub { $write++; undef };
-        $rw->finalize($req, $res);
-        ok $write;
-    };
-};

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

@@ -129 +129 @@
 
 ".('dummy'x5000)
+
 ===
 --- input
@@ -157 +158 @@
 
 OK!
+
+===
+--- input
+my $writer = HTTP::Engine::ResponseWriter->new(
+    should_write_response_line => 1,
+);
+
+my $tmp = File::Temp->new();
+$tmp->write("OK!");
+$tmp->flush();
+$tmp->seek(0, File::Temp::SEEK_SET);
+
+my $req = HTTP::Engine::Request->new(
+    protocol => 'HTTP/1.1',
+    method => 'GET',
+);
+my $res = HTTP::Engine::Response->new(body => $tmp, status => 200);
+
+my $write;
+do {
+    no warnings 'redefine';
+    local *HTTP::Engine::ResponseWriter::_write = sub { warn $write++; undef };
+    $writer->finalize( $req, $res );
+};
+$write ? 'OK' : 'NG';
+
+--- expected
+OK