diff options
| author | Andrey Zelenkov <zelenkov@nginx.com> | 2018-03-19 19:03:31 +0300 |
|---|---|---|
| committer | Andrey Zelenkov <zelenkov@nginx.com> | 2018-03-19 19:03:31 +0300 |
| commit | 82bb66993e73d2c4b984700b9fa6bcee6b3f2b2c (patch) | |
| tree | 8037c50d8d1deb627700ee26a25409e6fecb86da /test/perl | |
| parent | 41c872010a6ba4d5f62a13da3bf2243cb7298476 (diff) | |
| download | unit-82bb66993e73d2c4b984700b9fa6bcee6b3f2b2c.tar.gz unit-82bb66993e73d2c4b984700b9fa6bcee6b3f2b2c.tar.bz2 | |
Tests: more Perl tests.
Diffstat (limited to 'test/perl')
| -rw-r--r-- | test/perl/variables/psgi.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/perl/variables/psgi.pl b/test/perl/variables/psgi.pl index c0a61b67..bed20af8 100644 --- a/test/perl/variables/psgi.pl +++ b/test/perl/variables/psgi.pl @@ -4,6 +4,8 @@ my $app = sub { my $len = int($environ->{'CONTENT_LENGTH'}); $environ->{'psgi.input'}->read(my $body, $len); + my $version = join('', @{$environ->{'psgi.version'}}); + return ['200', [ 'Content-Type' => $environ->{'CONTENT_TYPE'}, 'Content-Length' => $len, @@ -11,6 +13,13 @@ my $app = sub { 'Request-Uri' => $environ->{'REQUEST_URI'}, 'Http-Host' => $environ->{'HTTP_HOST'}, 'Server-Protocol' => $environ->{'SERVER_PROTOCOL'}, - 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'} + 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'}, + 'Psgi-Version' => $version, + 'Psgi-Url-Scheme' => $environ->{'psgi.url_scheme'}, + 'Psgi-Multithread' => $environ->{'psgi.multithread'}, + 'Psgi-Multiprocess' => $environ->{'psgi.multiprocess'}, + 'Psgi-Run-Once' => $environ->{'psgi.run_once'}, + 'Psgi-Nonblocking' => $environ->{'psgi.nonblocking'}, + 'Psgi-Streaming' => $environ->{'psgi.streaming'} ], [$body]]; }; |