1544Szelenkov@nginx.comimport unittest
2544Szelenkov@nginx.comimport unit
3544Szelenkov@nginx.com
4544Szelenkov@nginx.comclass TestUnitPerlApplication(unit.TestUnitApplicationPerl):
5544Szelenkov@nginx.com
6544Szelenkov@nginx.com    def setUpClass():
7544Szelenkov@nginx.com        unit.TestUnit().check_modules('perl')
8544Szelenkov@nginx.com
9544Szelenkov@nginx.com    def test_perl_application(self):
10544Szelenkov@nginx.com        self.load('variables')
11544Szelenkov@nginx.com
12544Szelenkov@nginx.com        body = 'Test body string.'
13544Szelenkov@nginx.com
14544Szelenkov@nginx.com        resp = self.post(headers={
15544Szelenkov@nginx.com            'Host': 'localhost',
16544Szelenkov@nginx.com            'Content-Type': 'text/html',
17544Szelenkov@nginx.com            'Custom-Header': 'blah'
18544Szelenkov@nginx.com        }, body=body)
19544Szelenkov@nginx.com
20544Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'status')
21544Szelenkov@nginx.com        headers = resp['headers']
22674Szelenkov@nginx.com        header_server = headers.pop('Server')
23674Szelenkov@nginx.com        self.assertRegex(header_server, r'Unit/[\d\.]+', 'server header')
24674Szelenkov@nginx.com        self.assertEqual(headers.pop('Server-Software'), header_server,
25674Szelenkov@nginx.com            'server software header')
26599Szelenkov@nginx.com
27599Szelenkov@nginx.com        date = headers.pop('Date')
28599Szelenkov@nginx.com        self.assertEqual(date[-4:], ' GMT', 'date header timezone')
29599Szelenkov@nginx.com        self.assertLess(abs(self.date_to_sec_epoch(date) - self.sec_epoch()), 5,
30599Szelenkov@nginx.com            'date header')
31599Szelenkov@nginx.com
32544Szelenkov@nginx.com        self.assertDictEqual(headers, {
33544Szelenkov@nginx.com            'Content-Length': str(len(body)),
34544Szelenkov@nginx.com            'Content-Type': 'text/html',
35544Szelenkov@nginx.com            'Request-Method': 'POST',
36544Szelenkov@nginx.com            'Request-Uri': '/',
37544Szelenkov@nginx.com            'Http-Host': 'localhost',
38544Szelenkov@nginx.com            'Server-Protocol': 'HTTP/1.1',
39581Szelenkov@nginx.com            'Custom-Header': 'blah',
40581Szelenkov@nginx.com            'Psgi-Version': '11',
41581Szelenkov@nginx.com            'Psgi-Url-Scheme': 'http',
42581Szelenkov@nginx.com            'Psgi-Multithread': '',
43581Szelenkov@nginx.com            'Psgi-Multiprocess': '1',
44581Szelenkov@nginx.com            'Psgi-Run-Once': '',
45581Szelenkov@nginx.com            'Psgi-Nonblocking': '',
46581Szelenkov@nginx.com            'Psgi-Streaming': ''
47544Szelenkov@nginx.com        }, 'headers')
48544Szelenkov@nginx.com        self.assertEqual(resp['body'], body, 'body')
49544Szelenkov@nginx.com
50544Szelenkov@nginx.com    def test_perl_application_query_string(self):
51544Szelenkov@nginx.com        self.load('query_string')
52544Szelenkov@nginx.com
53544Szelenkov@nginx.com        resp = self.get(url='/?var1=val1&var2=val2')
54544Szelenkov@nginx.com
55544Szelenkov@nginx.com        self.assertEqual(resp['headers']['Query-String'], 'var1=val1&var2=val2',
56544Szelenkov@nginx.com            'Query-String header')
57544Szelenkov@nginx.com
58*894Szelenkov@nginx.com    def test_perl_application_query_string_empty(self):
59*894Szelenkov@nginx.com        self.load('query_string')
60*894Szelenkov@nginx.com
61*894Szelenkov@nginx.com        resp = self.get(url='/?')
62*894Szelenkov@nginx.com
63*894Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'query string empty status')
64*894Szelenkov@nginx.com        self.assertEqual(resp['headers']['Query-String'], '',
65*894Szelenkov@nginx.com            'query string empty')
66*894Szelenkov@nginx.com
67*894Szelenkov@nginx.com    @unittest.expectedFailure
68*894Szelenkov@nginx.com    def test_perl_application_query_string_absent(self):
69*894Szelenkov@nginx.com        self.load('query_string')
70*894Szelenkov@nginx.com
71*894Szelenkov@nginx.com        resp = self.get()
72*894Szelenkov@nginx.com
73*894Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'query string absent status')
74*894Szelenkov@nginx.com        self.assertEqual(resp['headers']['Query-String'], '',
75*894Szelenkov@nginx.com            'query string absent')
76*894Szelenkov@nginx.com
77544Szelenkov@nginx.com    @unittest.expectedFailure
78544Szelenkov@nginx.com    def test_perl_application_server_port(self):
79544Szelenkov@nginx.com        self.load('server_port')
80544Szelenkov@nginx.com
81544Szelenkov@nginx.com        self.assertEqual(self.get()['headers']['Server-Port'], '7080',
82544Szelenkov@nginx.com            'Server-Port header')
83544Szelenkov@nginx.com
84544Szelenkov@nginx.com    def test_perl_application_input_read_empty(self):
85544Szelenkov@nginx.com        self.load('input_read_empty')
86544Szelenkov@nginx.com
87544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '', 'read empty')
88544Szelenkov@nginx.com
89554Szelenkov@nginx.com    def test_perl_application_input_read_parts(self):
90554Szelenkov@nginx.com        self.load('input_read_parts')
91554Szelenkov@nginx.com
92554Szelenkov@nginx.com        self.assertEqual(self.post(body='0123456789')['body'], '0123456789',
93554Szelenkov@nginx.com            'input read parts')
94554Szelenkov@nginx.com
95544Szelenkov@nginx.com    @unittest.expectedFailure
96544Szelenkov@nginx.com    def test_perl_application_input_read_offset(self):
97544Szelenkov@nginx.com        self.load('input_read_offset')
98544Szelenkov@nginx.com
99544Szelenkov@nginx.com        self.assertEqual(self.post(body='0123456789')['body'], '4567',
100544Szelenkov@nginx.com            'read offset')
101544Szelenkov@nginx.com
102544Szelenkov@nginx.com    def test_perl_application_input_copy(self):
103544Szelenkov@nginx.com        self.load('input_copy')
104544Szelenkov@nginx.com
105544Szelenkov@nginx.com        body = '0123456789'
106544Szelenkov@nginx.com        self.assertEqual(self.post(body=body)['body'], body, 'input copy')
107544Szelenkov@nginx.com
108544Szelenkov@nginx.com    def test_perl_application_errors_print(self):
109544Szelenkov@nginx.com        self.load('errors_print')
110544Szelenkov@nginx.com
111544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '1', 'errors result')
112544Szelenkov@nginx.com
113585Szelenkov@nginx.com        self.stop()
114544Szelenkov@nginx.com
115585Szelenkov@nginx.com        self.assertIsNotNone(
116585Szelenkov@nginx.com            self.search_in_log(r'\[error\].+Error in application'),
117585Szelenkov@nginx.com            'errors print')
118544Szelenkov@nginx.com
119554Szelenkov@nginx.com    def test_perl_application_header_equal_names(self):
120554Szelenkov@nginx.com        self.load('header_equal_names')
121554Szelenkov@nginx.com
122554Szelenkov@nginx.com        self.assertListEqual(self.get()['headers']['Set-Cookie'],
123554Szelenkov@nginx.com            ['tc=one,two,three', 'tc=four,five,six'], 'header equal names')
124554Szelenkov@nginx.com
125544Szelenkov@nginx.com    def test_perl_application_header_pairs(self):
126544Szelenkov@nginx.com        self.load('header_pairs')
127544Szelenkov@nginx.com
128544Szelenkov@nginx.com        self.assertEqual(self.get()['headers']['blah'], 'blah', 'header pairs')
129544Szelenkov@nginx.com
130544Szelenkov@nginx.com    def test_perl_application_body_empty(self):
131544Szelenkov@nginx.com        self.load('body_empty')
132544Szelenkov@nginx.com
133544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '0\r\n\r\n', 'body empty')
134544Szelenkov@nginx.com
135544Szelenkov@nginx.com    def test_perl_application_body_array(self):
136544Szelenkov@nginx.com        self.load('body_array')
137544Szelenkov@nginx.com
138544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '0123456789', 'body array')
139544Szelenkov@nginx.com
140544Szelenkov@nginx.com    def test_perl_application_body_large(self):
141544Szelenkov@nginx.com        self.load('variables')
142544Szelenkov@nginx.com
143544Szelenkov@nginx.com        body = '0123456789' * 1000
144544Szelenkov@nginx.com
145554Szelenkov@nginx.com        resp = self.post(body=body)['body']
146544Szelenkov@nginx.com
147544Szelenkov@nginx.com        self.assertEqual(resp, body, 'body large')
148544Szelenkov@nginx.com
149544Szelenkov@nginx.com    def test_perl_application_body_io_empty(self):
150544Szelenkov@nginx.com        self.load('body_io_empty')
151544Szelenkov@nginx.com
152544Szelenkov@nginx.com        self.assertEqual(self.get()['status'], 200, 'body io empty')
153544Szelenkov@nginx.com
154544Szelenkov@nginx.com    def test_perl_application_body_io_file(self):
155544Szelenkov@nginx.com        self.load('body_io_file')
156544Szelenkov@nginx.com
157544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], 'body\n', 'body io file')
158544Szelenkov@nginx.com
159607Szelenkov@nginx.com    @unittest.expectedFailure
160607Szelenkov@nginx.com    def test_perl_application_syntax_error(self):
161607Szelenkov@nginx.com        self.skip_alerts.extend([
162607Szelenkov@nginx.com            r'PSGI: Failed to parse script',
163607Szelenkov@nginx.com            r'process \d+ exited on signal'
164607Szelenkov@nginx.com        ])
165607Szelenkov@nginx.com        self.load('syntax_error')
166607Szelenkov@nginx.com
167607Szelenkov@nginx.com        self.assertEqual(self.get()['status'], 500, 'syntax error')
168607Szelenkov@nginx.com
169581Szelenkov@nginx.com    def test_perl_keepalive_body(self):
170581Szelenkov@nginx.com        self.load('variables')
171581Szelenkov@nginx.com
172581Szelenkov@nginx.com        (resp, sock) = self.post(headers={
173581Szelenkov@nginx.com            'Connection': 'keep-alive',
174581Szelenkov@nginx.com            'Content-Type': 'text/html',
175581Szelenkov@nginx.com            'Host': 'localhost'
176581Szelenkov@nginx.com        }, start=True, body='0123456789' * 500)
177581Szelenkov@nginx.com
178581Szelenkov@nginx.com        self.assertEqual(resp['body'], '0123456789' * 500, 'keep-alive 1')
179581Szelenkov@nginx.com
180581Szelenkov@nginx.com        resp = self.post(headers={
181581Szelenkov@nginx.com            'Connection': 'close',
182581Szelenkov@nginx.com            'Content-Type': 'text/html',
183581Szelenkov@nginx.com            'Host': 'localhost'
184581Szelenkov@nginx.com        }, sock=sock, body='0123456789')
185581Szelenkov@nginx.com
186581Szelenkov@nginx.com        self.assertEqual(resp['body'], '0123456789', 'keep-alive 2')
187581Szelenkov@nginx.com
188544Szelenkov@nginx.comif __name__ == '__main__':
189853Szelenkov@nginx.com    TestUnitPerlApplication.main()
190