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

Tests: added Perl threading tests.

Browse Source
This commit is contained in:
Max Romanov
2020-11-05 16:11:01 +03:00
parent d321d454f9
commit fc9a012ceb
2 changed files with 52 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/perl/threads/psgi.pl Normal file
View File

@@ -0,0 +1,11 @@
my $app = sub {
my ($environ) = @_;
sleep int($environ->{'HTTP_X_DELAY'});
return ['200', [
'Content-Length' => 0,
'Psgi-Multithread' => $environ->{'psgi.multithread'},
'X-Thread' => $environ->{'psgi.input'}
], []];
};