diff options
Diffstat (limited to 't/response-streaming.t')
| -rw-r--r-- | t/response-streaming.t | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/t/response-streaming.t b/t/response-streaming.t index 51f6aea..eea787e 100644 --- a/t/response-streaming.t +++ b/t/response-streaming.t @@ -3,7 +3,6 @@ use strict; use warnings; use Test::More; -use Web::Request; use Web::Response; { @@ -22,45 +21,6 @@ use Web::Response; } { - use utf8; - - my $req = Web::Request->new_from_env({}); - - my $res = $req->new_response(sub { - my $responder = shift; - $responder->([200, [], ["café"]]); - }); - my $psgi_res = $res->finalize; - ok(ref($psgi_res) eq 'CODE', "got a coderef"); - - is_deeply( - resolve_response($psgi_res), - [ 200, [], ["caf\xe9"] ], - "got the right response" - ); -} - -{ - use utf8; - - my $req = Web::Request->new_from_env({}); - $req->encoding('UTF-8'); - - my $res = $req->new_response(sub { - my $responder = shift; - $responder->([200, [], ["café"]]); - }); - my $psgi_res = $res->finalize; - ok(ref($psgi_res) eq 'CODE', "got a coderef"); - - is_deeply( - resolve_response($psgi_res), - [ 200, [], ["caf\xc3\xa9"] ], - "got the right response" - ); -} - -{ my $res = Web::Response->new(sub { my $responder = shift; my $writer = $responder->([200, []]); @@ -79,51 +39,6 @@ use Web::Response; ); } -{ - use utf8; - - my $req = Web::Request->new_from_env({}); - - my $res = $req->new_response(sub { - my $responder = shift; - my $writer = $responder->([200, []]); - $writer->write("ca"); - $writer->write("fé"); - $writer->close; - }); - my $psgi_res = $res->finalize; - ok(ref($psgi_res) eq 'CODE', "got a coderef"); - - is_deeply( - resolve_response($psgi_res), - [ 200, [], ["ca", "f\xe9"] ], - "got the right response" - ); -} - -{ - use utf8; - - my $req = Web::Request->new_from_env({}); - $req->encoding('UTF-8'); - - my $res = $req->new_response(sub { - my $responder = shift; - my $writer = $responder->([200, []]); - $writer->write("ca"); - $writer->write("fé"); - $writer->close; - }); - my $psgi_res = $res->finalize; - ok(ref($psgi_res) eq 'CODE', "got a coderef"); - - is_deeply( - resolve_response($psgi_res), - [ 200, [], ["ca", "f\xc3\xa9"] ], - "got the right response" - ); -} - sub resolve_response { my ($psgi_res) = @_; |