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