diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-09-28 23:37:03 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-09-28 23:43:29 -0500 |
commit | 378d39ae1a2cf3f6568e410a7844c2fa6dd12526 (patch) | |
tree | 5b2d73b8a0d09f54565e6026c5281afe6fe86ca3 /t | |
parent | ed1144bec808d25ff8ebfa09a190e8ca3d5fee25 (diff) | |
download | web-request-378d39ae1a2cf3f6568e410a7844c2fa6dd12526.tar.gz web-request-378d39ae1a2cf3f6568e410a7844c2fa6dd12526.zip |
start adding support for streaming responses
Diffstat (limited to 't')
-rw-r--r-- | t/response-streaming.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/t/response-streaming.t b/t/response-streaming.t new file mode 100644 index 0000000..fdf54e6 --- /dev/null +++ b/t/response-streaming.t @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Web::Response; + +{ + my $res = Web::Response->new(sub { + my $responder = shift; + $responder->([200, [], ["Hello world"]]); + }); + my $psgi_res = $res->finalize; + ok(ref($psgi_res) eq 'CODE', "got a coderef"); + + my $complete_response; + my $responder = sub { $complete_response = $_[0] }; + $psgi_res->($responder); + is_deeply( + $complete_response, + [ 200, [], ["Hello world"] ], + "got the right response" + ); +} + +done_testing; |