Merged with the default branch.1.21.0-1

1 files changed, 43 insertions, 1 deletions

diff --git a/test/test_perl_application.py b/test/test_perl_application.py
index 78e32a43..78f2dd90 100644
--- a/test/test_perl_application.py
+++ b/test/test_perl_application.py
@@ -3,6 +3,7 @@ import re
 import pytest
 
 from conftest import skip_alert
+from conftest import unit_stop
 from unit.applications.lang.perl import TestApplicationPerl
 
 
@@ -119,7 +120,7 @@ class TestPerlApplication(TestApplicationPerl):
 
         assert self.get()['body'] == '1', 'errors result'
 
-        self.stop()
+        unit_stop()
 
         assert (
             self.wait_for_record(r'\[error\].+Error in application')
@@ -237,3 +238,44 @@ class TestPerlApplication(TestApplicationPerl):
 
         assert resp['status'] == 200, 'status'
         assert resp['body'] == 'Hello World!', 'body'
+
+    def test_perl_application_threads(self):
+        self.load('threads')
+
+        assert 'success' in self.conf(
+            '4', 'applications/threads/threads'
+        ), 'configure 4 threads'
+
+        socks = []
+
+        for i in range(4):
+            (_, sock) = self.get(
+                headers={
+                    'Host': 'localhost',
+                    'X-Delay': '2',
+                    'Connection': 'close',
+                },
+                no_recv=True,
+                start=True,
+            )
+
+            socks.append(sock)
+
+        threads = set()
+
+        for sock in socks:
+            resp = self.recvall(sock).decode('utf-8')
+
+            self.log_in(resp)
+
+            resp = self._resp_to_dict(resp)
+
+            assert resp['status'] == 200, 'status'
+
+            threads.add(resp['headers']['X-Thread'])
+
+            assert resp['headers']['Psgi-Multithread'] == '1', 'multithread'
+
+            sock.close()
+
+        assert len(socks) == len(threads), 'threads differs'