Tests: added Perl test with many responses using streaming body.

This commit is contained in:
Andrei Zeliankou
2023-03-14 11:06:09 +00:00
parent fa81d7a11a
commit 28bdeec614
2 changed files with 16 additions and 0 deletions

View 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++]]);
};
};