Tests: Perl streaming body and delayed response simple tests.

This commit is contained in:
Andrey Zelenkov
2019-03-01 17:13:51 +03:00
parent d92feef571
commit 754b85c3ee
3 changed files with 39 additions and 0 deletions

View File

@@ -0,0 +1,10 @@
my $app = sub {
my ($environ) = @_;
return sub {
(my $responder = shift)->([200, [
'Content-Type' => 'text/plain',
'Content-Length' => '12'
], ["Hello World!"]]);
}
};