technocloud-public/nginx-unit
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Tests: more Perl tests.

Browse Source
This commit is contained in:
Andrey Zelenkov
2018-03-19 19:03:31 +03:00
parent 41c872010a
commit 82bb66993e
2 changed files with 37 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/perl/variables/psgi.pl
View File

@@ -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]];
};