Tests: added Perl threading tests.

2020-11-05 16:11:01 +03:00
parent d321d454f9
commit fc9a012ceb
2 changed files with 52 additions and 0 deletions
@@ -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'}
+    ], []];
+};