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