import unittest
from unit.applications.lang.perl import TestApplicationPerl
class TestPerlApplication(TestApplicationPerl):
prerequisites = {'modules': ['perl']}
def test_perl_application(self):
self.load('variables')
body = 'Test body string.'
resp = self.post(
headers={
'Host': 'localhost',
'Content-Type': 'text/html',
'Custom-Header': 'blah',
'Connection': 'close',
},
body=body,
)
self.assertEqual(resp['status'], 200, 'status')
headers = resp['headers']
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',
)
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',
)
self.assertDictEqual(
headers,
{
'Connection': 'close',
'Content-Length': str(len(body)),
'Content-Type': 'text/html',
'Request-Method': 'POST',
'Request-Uri': '/',
'Http-Host': 'localhost',
'Server-Protocol': 'HTTP/1.1',
'Custom-Header': 'blah',
'Psgi-Version': '11',
'Psgi-Url-Scheme': 'http',
'Psgi-Multithread': '',
'Psgi-Multiprocess': '1',
'Psgi-Run-Once': '',
'Psgi-Nonblocking': '',
'Psgi-Streaming': '1',
},
'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',
)
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'
)
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'
)
@unittest.skip('not yet')
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')
def test_perl_application_input_read_parts(self):
self.load('input_read_parts')
self.assertEqual(
self.post(body='0123456789')['body'],
'0123456789',
'input read parts',
)
@unittest.skip('not yet')
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')
self.stop()
self.assertIsNotNone(
self.wait_for_record(r'\[error\].+Error in application'),
'errors print',
)
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',
)
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'], '', '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
resp = self.post(body=body)['body']
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')
@unittest.skip('not yet, unsafe')
def test_perl_application_syntax_error(self):
self.skip_alerts.extend(
[r'PSGI: Failed to parse script']
)
self.load('syntax_error')
self.assertEqual(self.get()['status'], 500, 'syntax error')
def test_perl_keepalive_body(self):
self.load('variables')
self.assertEqual(self.get()['status'], 200, 'init')
body = '0123456789' * 500
(resp, sock) = self.post(
headers={
'Host': 'localhost',
'Connection': 'keep-alive',
'Content-Type': 'text/html',
},
start=True,
body=body,
read_timeout=1,
)
self.assertEqual(resp['body'], body, 'keep-alive 1')
body = '0123456789'
resp = self.post(
headers={
'Host': 'localhost',
'Connection': 'close',
'Content-Type': 'text/html',
},
sock=sock,
body=body,
)
self.assertEqual(resp['body'], body, 'keep-alive 2')
def test_perl_body_io_fake(self):
self.load('body_io_fake')
self.assertEqual(self.get()['body'], '21', 'body io fake')
self.assertIsNotNone(
self.wait_for_record(r'\[error\].+IOFake getline\(\) \$\/ is \d+'),
'body io fake $/ value',
)
self.assertIsNotNone(
self.wait_for_record(r'\[error\].+IOFake close\(\) called'),
'body io fake close',
)
def test_perl_delayed_response(self):
self.load('delayed_response')
resp = self.get()
self.assertEqual(resp['status'], 200, 'status')
self.assertEqual(resp['body'], 'Hello World!', 'body')
def test_perl_streaming_body(self):
self.load('streaming_body')
resp = self.get()
self.assertEqual(resp['status'], 200, 'status')
self.assertEqual(resp['body'], 'Hello World!', 'body')
if __name__ == '__main__':
TestPerlApplication.main()
