Tests: added Perl test with many responses using streaming body.
This commit is contained in:
11
test/perl/streaming_body_multiple_responses/psgi.pl
Normal file
11
test/perl/streaming_body_multiple_responses/psgi.pl
Normal file
@@ -0,0 +1,11 @@
|
||||
my $counter = 2;
|
||||
|
||||
my $app = sub {
|
||||
my $env = shift;
|
||||
|
||||
return sub {
|
||||
my $responder = shift;
|
||||
$responder->([200, ['Content-Type'=>'text/plain'], [$counter++]]);
|
||||
$responder->([200, ['Content-Type'=>'text/plain'], [$counter++]]);
|
||||
};
|
||||
};
|
||||
Reference in New Issue
Block a user