diff options
| author | Andrey Zelenkov <zelenkov@nginx.com> | 2019-03-01 17:13:51 +0300 |
|---|---|---|
| committer | Andrey Zelenkov <zelenkov@nginx.com> | 2019-03-01 17:13:51 +0300 |
| commit | 754b85c3eedc6717b9bb94fe82a80f36f25a3e9f (patch) | |
| tree | 4b97fd2e07beccc8e218a2ee7363952be2689d4f /test/perl/delayed_response/psgi.pl | |
| parent | d92feef571696c4e0ec837fd7f7e237aea038af4 (diff) | |
| download | unit-754b85c3eedc6717b9bb94fe82a80f36f25a3e9f.tar.gz unit-754b85c3eedc6717b9bb94fe82a80f36f25a3e9f.tar.bz2 | |
Tests: Perl streaming body and delayed response simple tests.
Diffstat (limited to '')
| -rw-r--r-- | test/perl/delayed_response/psgi.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/perl/delayed_response/psgi.pl b/test/perl/delayed_response/psgi.pl new file mode 100644 index 00000000..f934c3a7 --- /dev/null +++ b/test/perl/delayed_response/psgi.pl @@ -0,0 +1,10 @@ +my $app = sub { + my ($environ) = @_; + + return sub { + (my $responder = shift)->([200, [ + 'Content-Type' => 'text/plain', + 'Content-Length' => '12' + ], ["Hello World!"]]); + } +}; |