2018-02-12 16:32:54 +00:00
|
|
|
import unittest
|
|
|
|
import unit
|
|
|
|
|
|
|
|
class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
|
|
|
|
|
|
|
|
def setUpClass():
|
|
|
|
unit.TestUnit().check_modules('perl')
|
|
|
|
|
|
|
|
def test_perl_application(self):
|
|
|
|
self.load('variables')
|
|
|
|
|
|
|
|
body = 'Test body string.'
|
|
|
|
|
|
|
|
resp = self.post(headers={
|
|
|
|
'Host': 'localhost',
|
|
|
|
'Content-Type': 'text/html',
|
2019-02-27 16:15:02 +00:00
|
|
|
'Custom-Header': 'blah',
|
|
|
|
'Connection': 'close'
|
2018-02-12 16:32:54 +00:00
|
|
|
}, body=body)
|
|
|
|
|
|
|
|
self.assertEqual(resp['status'], 200, 'status')
|
|
|
|
headers = resp['headers']
|
2018-05-21 13:41:33 +00:00
|
|
|
header_server = headers.pop('Server')
|
|
|
|
self.assertRegex(header_server, r'Unit/[\d\.]+', 'server header')
|
|
|
|
self.assertEqual(headers.pop('Server-Software'), header_server,
|
|
|
|
'server software header')
|
2018-04-02 12:50:05 +00:00
|
|
|
|
|
|
|
date = headers.pop('Date')
|
|
|
|
self.assertEqual(date[-4:], ' GMT', 'date header timezone')
|
|
|
|
self.assertLess(abs(self.date_to_sec_epoch(date) - self.sec_epoch()), 5,
|
|
|
|
'date header')
|
|
|
|
|
2018-02-12 16:32:54 +00:00
|
|
|
self.assertDictEqual(headers, {
|
2019-02-27 16:15:02 +00:00
|
|
|
'Connection': 'close',
|
2018-02-12 16:32:54 +00:00
|
|
|
'Content-Length': str(len(body)),
|
|
|
|
'Content-Type': 'text/html',
|
|
|
|
'Request-Method': 'POST',
|
|
|
|
'Request-Uri': '/',
|
|
|
|
'Http-Host': 'localhost',
|
|
|
|
'Server-Protocol': 'HTTP/1.1',
|
2018-03-19 16:03:31 +00:00
|
|
|
'Custom-Header': 'blah',
|
|
|
|
'Psgi-Version': '11',
|
|
|
|
'Psgi-Url-Scheme': 'http',
|
|
|
|
'Psgi-Multithread': '',
|
|
|
|
'Psgi-Multiprocess': '1',
|
|
|
|
'Psgi-Run-Once': '',
|
|
|
|
'Psgi-Nonblocking': '',
|
|
|
|
'Psgi-Streaming': ''
|
2018-02-12 16:32:54 +00:00
|
|
|
}, 'headers')
|
|
|
|
self.assertEqual(resp['body'], body, 'body')
|
|
|
|
|
|
|
|
def test_perl_application_query_string(self):
|
|
|
|
self.load('query_string')
|
|
|
|
|
|
|
|
resp = self.get(url='/?var1=val1&var2=val2')
|
|
|
|
|
|
|
|
self.assertEqual(resp['headers']['Query-String'], 'var1=val1&var2=val2',
|
|
|
|
'Query-String header')
|
|
|
|
|
2018-12-24 17:35:18 +00:00
|
|
|
def test_perl_application_query_string_empty(self):
|
|
|
|
self.load('query_string')
|
|
|
|
|
|
|
|
resp = self.get(url='/?')
|
|
|
|
|
|
|
|
self.assertEqual(resp['status'], 200, 'query string empty status')
|
|
|
|
self.assertEqual(resp['headers']['Query-String'], '',
|
|
|
|
'query string empty')
|
|
|
|
|
|
|
|
@unittest.expectedFailure
|
|
|
|
def test_perl_application_query_string_absent(self):
|
|
|
|
self.load('query_string')
|
|
|
|
|
|
|
|
resp = self.get()
|
|
|
|
|
|
|
|
self.assertEqual(resp['status'], 200, 'query string absent status')
|
|
|
|
self.assertEqual(resp['headers']['Query-String'], '',
|
|
|
|
'query string absent')
|
|
|
|
|
2018-02-12 16:32:54 +00:00
|
|
|
@unittest.expectedFailure
|
|
|
|
def test_perl_application_server_port(self):
|
|
|
|
self.load('server_port')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['headers']['Server-Port'], '7080',
|
|
|
|
'Server-Port header')
|
|
|
|
|
|
|
|
def test_perl_application_input_read_empty(self):
|
|
|
|
self.load('input_read_empty')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], '', 'read empty')
|
|
|
|
|
2018-02-26 16:53:40 +00:00
|
|
|
def test_perl_application_input_read_parts(self):
|
|
|
|
self.load('input_read_parts')
|
|
|
|
|
|
|
|
self.assertEqual(self.post(body='0123456789')['body'], '0123456789',
|
|
|
|
'input read parts')
|
|
|
|
|
2018-02-12 16:32:54 +00:00
|
|
|
@unittest.expectedFailure
|
|
|
|
def test_perl_application_input_read_offset(self):
|
|
|
|
self.load('input_read_offset')
|
|
|
|
|
|
|
|
self.assertEqual(self.post(body='0123456789')['body'], '4567',
|
|
|
|
'read offset')
|
|
|
|
|
|
|
|
def test_perl_application_input_copy(self):
|
|
|
|
self.load('input_copy')
|
|
|
|
|
|
|
|
body = '0123456789'
|
|
|
|
self.assertEqual(self.post(body=body)['body'], body, 'input copy')
|
|
|
|
|
|
|
|
def test_perl_application_errors_print(self):
|
|
|
|
self.load('errors_print')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], '1', 'errors result')
|
|
|
|
|
2018-03-21 15:26:40 +00:00
|
|
|
self.stop()
|
2018-02-12 16:32:54 +00:00
|
|
|
|
2018-03-21 15:26:40 +00:00
|
|
|
self.assertIsNotNone(
|
|
|
|
self.search_in_log(r'\[error\].+Error in application'),
|
|
|
|
'errors print')
|
2018-02-12 16:32:54 +00:00
|
|
|
|
2018-02-26 16:53:40 +00:00
|
|
|
def test_perl_application_header_equal_names(self):
|
|
|
|
self.load('header_equal_names')
|
|
|
|
|
|
|
|
self.assertListEqual(self.get()['headers']['Set-Cookie'],
|
|
|
|
['tc=one,two,three', 'tc=four,five,six'], 'header equal names')
|
|
|
|
|
2018-02-12 16:32:54 +00:00
|
|
|
def test_perl_application_header_pairs(self):
|
|
|
|
self.load('header_pairs')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['headers']['blah'], 'blah', 'header pairs')
|
|
|
|
|
|
|
|
def test_perl_application_body_empty(self):
|
|
|
|
self.load('body_empty')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], '0\r\n\r\n', 'body empty')
|
|
|
|
|
|
|
|
def test_perl_application_body_array(self):
|
|
|
|
self.load('body_array')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], '0123456789', 'body array')
|
|
|
|
|
|
|
|
def test_perl_application_body_large(self):
|
|
|
|
self.load('variables')
|
|
|
|
|
|
|
|
body = '0123456789' * 1000
|
|
|
|
|
2018-02-26 16:53:40 +00:00
|
|
|
resp = self.post(body=body)['body']
|
2018-02-12 16:32:54 +00:00
|
|
|
|
|
|
|
self.assertEqual(resp, body, 'body large')
|
|
|
|
|
|
|
|
def test_perl_application_body_io_empty(self):
|
|
|
|
self.load('body_io_empty')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['status'], 200, 'body io empty')
|
|
|
|
|
|
|
|
def test_perl_application_body_io_file(self):
|
|
|
|
self.load('body_io_file')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], 'body\n', 'body io file')
|
|
|
|
|
2018-04-02 16:20:11 +00:00
|
|
|
@unittest.expectedFailure
|
|
|
|
def test_perl_application_syntax_error(self):
|
|
|
|
self.skip_alerts.extend([
|
|
|
|
r'PSGI: Failed to parse script',
|
|
|
|
r'process \d+ exited on signal'
|
|
|
|
])
|
|
|
|
self.load('syntax_error')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['status'], 500, 'syntax error')
|
|
|
|
|
2018-03-19 16:03:31 +00:00
|
|
|
def test_perl_keepalive_body(self):
|
|
|
|
self.load('variables')
|
|
|
|
|
|
|
|
(resp, sock) = self.post(headers={
|
2019-02-27 16:15:02 +00:00
|
|
|
'Host': 'localhost',
|
2018-03-19 16:03:31 +00:00
|
|
|
'Connection': 'keep-alive',
|
2019-02-27 16:15:02 +00:00
|
|
|
'Content-Type': 'text/html'
|
2018-03-19 16:03:31 +00:00
|
|
|
}, start=True, body='0123456789' * 500)
|
|
|
|
|
|
|
|
self.assertEqual(resp['body'], '0123456789' * 500, 'keep-alive 1')
|
|
|
|
|
|
|
|
resp = self.post(headers={
|
2019-02-27 16:15:02 +00:00
|
|
|
'Host': 'localhost',
|
2018-03-19 16:03:31 +00:00
|
|
|
'Connection': 'close',
|
2019-02-27 16:15:02 +00:00
|
|
|
'Content-Type': 'text/html'
|
2018-03-19 16:03:31 +00:00
|
|
|
}, sock=sock, body='0123456789')
|
|
|
|
|
|
|
|
self.assertEqual(resp['body'], '0123456789', 'keep-alive 2')
|
|
|
|
|
2019-01-28 14:16:50 +00:00
|
|
|
def test_perl_body_io_fake(self):
|
|
|
|
self.load('body_io_fake')
|
|
|
|
|
|
|
|
self.assertEqual(self.get()['body'], '21', 'body io fake')
|
|
|
|
|
|
|
|
self.assertIsNotNone(
|
|
|
|
self.search_in_log(r'\[error\].+IOFake getline\(\) \$\/ is \d+'),
|
|
|
|
'body io fake $/ value')
|
|
|
|
|
|
|
|
self.assertIsNotNone(
|
|
|
|
self.search_in_log(r'\[error\].+IOFake close\(\) called'),
|
|
|
|
'body io fake close')
|
|
|
|
|
2018-02-12 16:32:54 +00:00
|
|
|
if __name__ == '__main__':
|
2018-11-15 18:26:15 +00:00
|
|
|
TestUnitPerlApplication.main()
|