1544Szelenkov@nginx.comimport unittest
2*1477Szelenkov@nginx.com
31019Szelenkov@nginx.comfrom unit.applications.lang.perl import TestApplicationPerl
4544Szelenkov@nginx.com
51017Szelenkov@nginx.com
61019Szelenkov@nginx.comclass TestPerlApplication(TestApplicationPerl):
71467Szelenkov@nginx.com    prerequisites = {'modules': {'perl': 'all'}}
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
141017Szelenkov@nginx.com        resp = self.post(
151017Szelenkov@nginx.com            headers={
161017Szelenkov@nginx.com                'Host': 'localhost',
171017Szelenkov@nginx.com                'Content-Type': 'text/html',
181017Szelenkov@nginx.com                'Custom-Header': 'blah',
191017Szelenkov@nginx.com                'Connection': 'close',
201017Szelenkov@nginx.com            },
211017Szelenkov@nginx.com            body=body,
221017Szelenkov@nginx.com        )
23544Szelenkov@nginx.com
24544Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'status')
25544Szelenkov@nginx.com        headers = resp['headers']
26674Szelenkov@nginx.com        header_server = headers.pop('Server')
27674Szelenkov@nginx.com        self.assertRegex(header_server, r'Unit/[\d\.]+', 'server header')
281017Szelenkov@nginx.com        self.assertEqual(
291017Szelenkov@nginx.com            headers.pop('Server-Software'),
301017Szelenkov@nginx.com            header_server,
311017Szelenkov@nginx.com            'server software header',
321017Szelenkov@nginx.com        )
33599Szelenkov@nginx.com
34599Szelenkov@nginx.com        date = headers.pop('Date')
35599Szelenkov@nginx.com        self.assertEqual(date[-4:], ' GMT', 'date header timezone')
361017Szelenkov@nginx.com        self.assertLess(
371017Szelenkov@nginx.com            abs(self.date_to_sec_epoch(date) - self.sec_epoch()),
381017Szelenkov@nginx.com            5,
391017Szelenkov@nginx.com            'date header',
401017Szelenkov@nginx.com        )
41599Szelenkov@nginx.com
421017Szelenkov@nginx.com        self.assertDictEqual(
431017Szelenkov@nginx.com            headers,
441017Szelenkov@nginx.com            {
451017Szelenkov@nginx.com                'Connection': 'close',
461017Szelenkov@nginx.com                'Content-Length': str(len(body)),
471017Szelenkov@nginx.com                'Content-Type': 'text/html',
481017Szelenkov@nginx.com                'Request-Method': 'POST',
491017Szelenkov@nginx.com                'Request-Uri': '/',
501017Szelenkov@nginx.com                'Http-Host': 'localhost',
511017Szelenkov@nginx.com                'Server-Protocol': 'HTTP/1.1',
521017Szelenkov@nginx.com                'Custom-Header': 'blah',
531017Szelenkov@nginx.com                'Psgi-Version': '11',
541017Szelenkov@nginx.com                'Psgi-Url-Scheme': 'http',
551017Szelenkov@nginx.com                'Psgi-Multithread': '',
561017Szelenkov@nginx.com                'Psgi-Multiprocess': '1',
571017Szelenkov@nginx.com                'Psgi-Run-Once': '',
581017Szelenkov@nginx.com                'Psgi-Nonblocking': '',
591017Szelenkov@nginx.com                'Psgi-Streaming': '1',
601017Szelenkov@nginx.com            },
611017Szelenkov@nginx.com            'headers',
621017Szelenkov@nginx.com        )
63544Szelenkov@nginx.com        self.assertEqual(resp['body'], body, 'body')
64544Szelenkov@nginx.com
65544Szelenkov@nginx.com    def test_perl_application_query_string(self):
66544Szelenkov@nginx.com        self.load('query_string')
67544Szelenkov@nginx.com
68544Szelenkov@nginx.com        resp = self.get(url='/?var1=val1&var2=val2')
69544Szelenkov@nginx.com
701017Szelenkov@nginx.com        self.assertEqual(
711017Szelenkov@nginx.com            resp['headers']['Query-String'],
721017Szelenkov@nginx.com            'var1=val1&var2=val2',
731017Szelenkov@nginx.com            'Query-String header',
741017Szelenkov@nginx.com        )
75544Szelenkov@nginx.com
76894Szelenkov@nginx.com    def test_perl_application_query_string_empty(self):
77894Szelenkov@nginx.com        self.load('query_string')
78894Szelenkov@nginx.com
79894Szelenkov@nginx.com        resp = self.get(url='/?')
80894Szelenkov@nginx.com
81894Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'query string empty status')
821017Szelenkov@nginx.com        self.assertEqual(
831017Szelenkov@nginx.com            resp['headers']['Query-String'], '', 'query string empty'
841017Szelenkov@nginx.com        )
85894Szelenkov@nginx.com
86894Szelenkov@nginx.com    def test_perl_application_query_string_absent(self):
87894Szelenkov@nginx.com        self.load('query_string')
88894Szelenkov@nginx.com
89894Szelenkov@nginx.com        resp = self.get()
90894Szelenkov@nginx.com
91894Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'query string absent status')
921017Szelenkov@nginx.com        self.assertEqual(
931017Szelenkov@nginx.com            resp['headers']['Query-String'], '', 'query string absent'
941017Szelenkov@nginx.com        )
95894Szelenkov@nginx.com
961064Szelenkov@nginx.com    @unittest.skip('not yet')
97544Szelenkov@nginx.com    def test_perl_application_server_port(self):
98544Szelenkov@nginx.com        self.load('server_port')
99544Szelenkov@nginx.com
1001017Szelenkov@nginx.com        self.assertEqual(
1011017Szelenkov@nginx.com            self.get()['headers']['Server-Port'], '7080', 'Server-Port header'
1021017Szelenkov@nginx.com        )
103544Szelenkov@nginx.com
104544Szelenkov@nginx.com    def test_perl_application_input_read_empty(self):
105544Szelenkov@nginx.com        self.load('input_read_empty')
106544Szelenkov@nginx.com
107544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '', 'read empty')
108544Szelenkov@nginx.com
109554Szelenkov@nginx.com    def test_perl_application_input_read_parts(self):
110554Szelenkov@nginx.com        self.load('input_read_parts')
111554Szelenkov@nginx.com
1121017Szelenkov@nginx.com        self.assertEqual(
1131017Szelenkov@nginx.com            self.post(body='0123456789')['body'],
1141017Szelenkov@nginx.com            '0123456789',
1151017Szelenkov@nginx.com            'input read parts',
1161017Szelenkov@nginx.com        )
117554Szelenkov@nginx.com
1181064Szelenkov@nginx.com    @unittest.skip('not yet')
119544Szelenkov@nginx.com    def test_perl_application_input_read_offset(self):
120544Szelenkov@nginx.com        self.load('input_read_offset')
121544Szelenkov@nginx.com
1221017Szelenkov@nginx.com        self.assertEqual(
1231017Szelenkov@nginx.com            self.post(body='0123456789')['body'], '4567', 'read offset'
1241017Szelenkov@nginx.com        )
125544Szelenkov@nginx.com
126544Szelenkov@nginx.com    def test_perl_application_input_copy(self):
127544Szelenkov@nginx.com        self.load('input_copy')
128544Szelenkov@nginx.com
129544Szelenkov@nginx.com        body = '0123456789'
130544Szelenkov@nginx.com        self.assertEqual(self.post(body=body)['body'], body, 'input copy')
131544Szelenkov@nginx.com
132544Szelenkov@nginx.com    def test_perl_application_errors_print(self):
133544Szelenkov@nginx.com        self.load('errors_print')
134544Szelenkov@nginx.com
135544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '1', 'errors result')
136544Szelenkov@nginx.com
137585Szelenkov@nginx.com        self.stop()
138544Szelenkov@nginx.com
139585Szelenkov@nginx.com        self.assertIsNotNone(
1401028Szelenkov@nginx.com            self.wait_for_record(r'\[error\].+Error in application'),
1411017Szelenkov@nginx.com            'errors print',
1421017Szelenkov@nginx.com        )
143544Szelenkov@nginx.com
144554Szelenkov@nginx.com    def test_perl_application_header_equal_names(self):
145554Szelenkov@nginx.com        self.load('header_equal_names')
146554Szelenkov@nginx.com
1471017Szelenkov@nginx.com        self.assertListEqual(
1481017Szelenkov@nginx.com            self.get()['headers']['Set-Cookie'],
1491017Szelenkov@nginx.com            ['tc=one,two,three', 'tc=four,five,six'],
1501017Szelenkov@nginx.com            'header equal names',
1511017Szelenkov@nginx.com        )
152554Szelenkov@nginx.com
153544Szelenkov@nginx.com    def test_perl_application_header_pairs(self):
154544Szelenkov@nginx.com        self.load('header_pairs')
155544Szelenkov@nginx.com
156544Szelenkov@nginx.com        self.assertEqual(self.get()['headers']['blah'], 'blah', 'header pairs')
157544Szelenkov@nginx.com
158544Szelenkov@nginx.com    def test_perl_application_body_empty(self):
159544Szelenkov@nginx.com        self.load('body_empty')
160544Szelenkov@nginx.com
1611295St.nateldemoura@f5.com        self.assertEqual(self.get()['body'], '', 'body empty')
162544Szelenkov@nginx.com
163544Szelenkov@nginx.com    def test_perl_application_body_array(self):
164544Szelenkov@nginx.com        self.load('body_array')
165544Szelenkov@nginx.com
166544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '0123456789', 'body array')
167544Szelenkov@nginx.com
168544Szelenkov@nginx.com    def test_perl_application_body_large(self):
169544Szelenkov@nginx.com        self.load('variables')
170544Szelenkov@nginx.com
171544Szelenkov@nginx.com        body = '0123456789' * 1000
172544Szelenkov@nginx.com
173554Szelenkov@nginx.com        resp = self.post(body=body)['body']
174544Szelenkov@nginx.com
175544Szelenkov@nginx.com        self.assertEqual(resp, body, 'body large')
176544Szelenkov@nginx.com
177544Szelenkov@nginx.com    def test_perl_application_body_io_empty(self):
178544Szelenkov@nginx.com        self.load('body_io_empty')
179544Szelenkov@nginx.com
180544Szelenkov@nginx.com        self.assertEqual(self.get()['status'], 200, 'body io empty')
181544Szelenkov@nginx.com
182544Szelenkov@nginx.com    def test_perl_application_body_io_file(self):
183544Szelenkov@nginx.com        self.load('body_io_file')
184544Szelenkov@nginx.com
185544Szelenkov@nginx.com        self.assertEqual(self.get()['body'], 'body\n', 'body io file')
186544Szelenkov@nginx.com
1871064Szelenkov@nginx.com    @unittest.skip('not yet, unsafe')
188607Szelenkov@nginx.com    def test_perl_application_syntax_error(self):
1891017Szelenkov@nginx.com        self.skip_alerts.extend(
1901064Szelenkov@nginx.com            [r'PSGI: Failed to parse script']
1911017Szelenkov@nginx.com        )
192607Szelenkov@nginx.com        self.load('syntax_error')
193607Szelenkov@nginx.com
194607Szelenkov@nginx.com        self.assertEqual(self.get()['status'], 500, 'syntax error')
195607Szelenkov@nginx.com
196581Szelenkov@nginx.com    def test_perl_keepalive_body(self):
197581Szelenkov@nginx.com        self.load('variables')
198581Szelenkov@nginx.com
1991029Szelenkov@nginx.com        self.assertEqual(self.get()['status'], 200, 'init')
2001029Szelenkov@nginx.com
2011453Szelenkov@nginx.com        body = '0123456789' * 500
2021017Szelenkov@nginx.com        (resp, sock) = self.post(
2031017Szelenkov@nginx.com            headers={
2041017Szelenkov@nginx.com                'Host': 'localhost',
2051017Szelenkov@nginx.com                'Connection': 'keep-alive',
2061017Szelenkov@nginx.com                'Content-Type': 'text/html',
2071017Szelenkov@nginx.com            },
2081017Szelenkov@nginx.com            start=True,
2091453Szelenkov@nginx.com            body=body,
2101029Szelenkov@nginx.com            read_timeout=1,
2111017Szelenkov@nginx.com        )
212581Szelenkov@nginx.com
2131453Szelenkov@nginx.com        self.assertEqual(resp['body'], body, 'keep-alive 1')
214581Szelenkov@nginx.com
2151453Szelenkov@nginx.com        body = '0123456789'
2161017Szelenkov@nginx.com        resp = self.post(
2171017Szelenkov@nginx.com            headers={
2181017Szelenkov@nginx.com                'Host': 'localhost',
2191017Szelenkov@nginx.com                'Connection': 'close',
2201017Szelenkov@nginx.com                'Content-Type': 'text/html',
2211017Szelenkov@nginx.com            },
2221017Szelenkov@nginx.com            sock=sock,
2231453Szelenkov@nginx.com            body=body,
2241017Szelenkov@nginx.com        )
225581Szelenkov@nginx.com
2261453Szelenkov@nginx.com        self.assertEqual(resp['body'], body, 'keep-alive 2')
227581Szelenkov@nginx.com
228916Szelenkov@nginx.com    def test_perl_body_io_fake(self):
229916Szelenkov@nginx.com        self.load('body_io_fake')
230916Szelenkov@nginx.com
231916Szelenkov@nginx.com        self.assertEqual(self.get()['body'], '21', 'body io fake')
232916Szelenkov@nginx.com
233916Szelenkov@nginx.com        self.assertIsNotNone(
2341028Szelenkov@nginx.com            self.wait_for_record(r'\[error\].+IOFake getline\(\) \$\/ is \d+'),
2351017Szelenkov@nginx.com            'body io fake $/ value',
2361017Szelenkov@nginx.com        )
237916Szelenkov@nginx.com
238916Szelenkov@nginx.com        self.assertIsNotNone(
2391028Szelenkov@nginx.com            self.wait_for_record(r'\[error\].+IOFake close\(\) called'),
2401017Szelenkov@nginx.com            'body io fake close',
2411017Szelenkov@nginx.com        )
242916Szelenkov@nginx.com
243988Szelenkov@nginx.com    def test_perl_delayed_response(self):
244988Szelenkov@nginx.com        self.load('delayed_response')
245988Szelenkov@nginx.com
246988Szelenkov@nginx.com        resp = self.get()
247988Szelenkov@nginx.com
248988Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'status')
249988Szelenkov@nginx.com        self.assertEqual(resp['body'], 'Hello World!', 'body')
250988Szelenkov@nginx.com
251988Szelenkov@nginx.com    def test_perl_streaming_body(self):
252988Szelenkov@nginx.com        self.load('streaming_body')
253988Szelenkov@nginx.com
254988Szelenkov@nginx.com        resp = self.get()
255988Szelenkov@nginx.com
256988Szelenkov@nginx.com        self.assertEqual(resp['status'], 200, 'status')
257988Szelenkov@nginx.com        self.assertEqual(resp['body'], 'Hello World!', 'body')
258988Szelenkov@nginx.com
2591017Szelenkov@nginx.com
260544Szelenkov@nginx.comif __name__ == '__main__':
2611019Szelenkov@nginx.com    TestPerlApplication.main()
262