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/streaming_body | |
| parent | d92feef571696c4e0ec837fd7f7e237aea038af4 (diff) | |
| download | unit-754b85c3eedc6717b9bb94fe82a80f36f25a3e9f.tar.gz unit-754b85c3eedc6717b9bb94fe82a80f36f25a3e9f.tar.bz2 | |
Tests: Perl streaming body and delayed response simple tests.
Diffstat (limited to 'test/perl/streaming_body')
| -rw-r--r-- | test/perl/streaming_body/psgi.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/perl/streaming_body/psgi.pl b/test/perl/streaming_body/psgi.pl new file mode 100644 index 00000000..a3e54ee0 --- /dev/null +++ b/test/perl/streaming_body/psgi.pl @@ -0,0 +1,13 @@ +my $app = sub { + my ($environ) = @_; + + return sub { + my $writer = (my $responder = shift)->([200, [ + 'Content-Type' => 'text/plain', + 'Content-Length' => '12' + ]]); + + $writer->write("Hello World!"); + $writer->close; + }; +}; |