1import pytest 2import re 3 4from unit.applications.lang.perl import TestApplicationPerl 5from conftest import skip_alert 6 7 8class TestPerlApplication(TestApplicationPerl): 9 prerequisites = {'modules': {'perl': 'all'}} 10 11 def test_perl_application(self): 12 self.load('variables') 13 14 body = 'Test body string.' 15 16 resp = self.post( 17 headers={ 18 'Host': 'localhost', 19 'Content-Type': 'text/html', 20 'Custom-Header': 'blah', 21 'Connection': 'close', 22 }, 23 body=body, 24 ) 25 26 assert resp['status'] == 200, 'status' 27 headers = resp['headers'] 28 header_server = headers.pop('Server') 29 assert re.search(r'Unit/[\d\.]+', header_server), 'server header' 30 assert ( 31 headers.pop('Server-Software') == header_server 32 ), 'server software header' 33 34 date = headers.pop('Date') 35 assert date[-4:] == ' GMT', 'date header timezone' 36 assert ( 37 abs(self.date_to_sec_epoch(date) - self.sec_epoch()) < 5 38 ), 'date header' 39 40 assert headers == { 41 'Connection': 'close', 42 'Content-Length': str(len(body)), 43 'Content-Type': 'text/html', 44 'Request-Method': 'POST', 45 'Request-Uri': '/', 46 'Http-Host': 'localhost', 47 'Server-Protocol': 'HTTP/1.1', 48 'Custom-Header': 'blah', 49 'Psgi-Version': '11', 50 'Psgi-Url-Scheme': 'http', 51 'Psgi-Multithread': '', 52 'Psgi-Multiprocess': '1', 53 'Psgi-Run-Once': '', 54 'Psgi-Nonblocking': '', 55 'Psgi-Streaming': '1', 56 }, 'headers' 57 assert resp['body'] == body, 'body' 58 59 def test_perl_application_query_string(self): 60 self.load('query_string') 61 62 resp = self.get(url='/?var1=val1&var2=val2') 63 64 assert ( 65 resp['headers']['Query-String'] == 'var1=val1&var2=val2' 66 ), 'Query-String header' 67 68 def test_perl_application_query_string_empty(self): 69 self.load('query_string') 70 71 resp = self.get(url='/?') 72 73 assert resp['status'] == 200, 'query string empty status' 74 assert resp['headers']['Query-String'] == '', 'query string empty' 75 76 def test_perl_application_query_string_absent(self): 77 self.load('query_string') 78 79 resp = self.get() 80 81 assert resp['status'] == 200, 'query string absent status' 82 assert resp['headers']['Query-String'] == '', 'query string absent' 83 84 @pytest.mark.skip('not yet') 85 def test_perl_application_server_port(self): 86 self.load('server_port') 87 88 assert ( 89 self.get()['headers']['Server-Port'] == '7080' 90 ), 'Server-Port header' 91 92 def test_perl_application_input_read_empty(self): 93 self.load('input_read_empty') 94 95 assert self.get()['body'] == '', 'read empty' 96 97 def test_perl_application_input_read_parts(self): 98 self.load('input_read_parts') 99 100 assert ( 101 self.post(body='0123456789')['body'] == '0123456789' 102 ), 'input read parts' 103 104 @pytest.mark.skip('not yet') 105 def test_perl_application_input_read_offset(self): 106 self.load('input_read_offset') 107 108 assert self.post(body='0123456789')['body'] == '4567', 'read offset' 109 110 def test_perl_application_input_copy(self): 111 self.load('input_copy') 112 113 body = '0123456789' 114 assert self.post(body=body)['body'] == body, 'input copy' 115 116 def test_perl_application_errors_print(self): 117 self.load('errors_print') 118 119 assert self.get()['body'] == '1', 'errors result' 120 121 self.stop() 122 123 assert ( 124 self.wait_for_record(r'\[error\].+Error in application') 125 is not None 126 ), 'errors print' 127 128 def test_perl_application_header_equal_names(self): 129 self.load('header_equal_names') 130 131 assert self.get()['headers']['Set-Cookie'] == [ 132 'tc=one,two,three', 133 'tc=four,five,six', 134 ], 'header equal names' 135 136 def test_perl_application_header_pairs(self): 137 self.load('header_pairs') 138 139 assert self.get()['headers']['blah'] == 'blah', 'header pairs' 140 141 def test_perl_application_body_empty(self): 142 self.load('body_empty') 143 144 assert self.get()['body'] == '', 'body empty' 145 146 def test_perl_application_body_array(self): 147 self.load('body_array') 148 149 assert self.get()['body'] == '0123456789', 'body array' 150 151 def test_perl_application_body_large(self): 152 self.load('variables') 153 154 body = '0123456789' * 1000 155 156 resp = self.post(body=body)['body'] 157 158 assert resp == body, 'body large' 159 160 def test_perl_application_body_io_empty(self): 161 self.load('body_io_empty') 162 163 assert self.get()['status'] == 200, 'body io empty' 164 165 def test_perl_application_body_io_file(self): 166 self.load('body_io_file') 167 168 assert self.get()['body'] == 'body\n', 'body io file' 169 170 @pytest.mark.skip('not yet') 171 def test_perl_application_syntax_error(self): 172 skip_alert(r'PSGI: Failed to parse script') 173 self.load('syntax_error') 174 175 assert self.get()['status'] == 500, 'syntax error' 176 177 def test_perl_keepalive_body(self): 178 self.load('variables') 179 180 assert self.get()['status'] == 200, 'init' 181 182 body = '0123456789' * 500 183 (resp, sock) = self.post( 184 headers={ 185 'Host': 'localhost', 186 'Connection': 'keep-alive', 187 'Content-Type': 'text/html', 188 }, 189 start=True, 190 body=body, 191 read_timeout=1, 192 ) 193 194 assert resp['body'] == body, 'keep-alive 1' 195 196 body = '0123456789' 197 resp = self.post( 198 headers={ 199 'Host': 'localhost', 200 'Connection': 'close', 201 'Content-Type': 'text/html', 202 }, 203 sock=sock, 204 body=body, 205 ) 206 207 assert resp['body'] == body, 'keep-alive 2' 208 209 def test_perl_body_io_fake(self): 210 self.load('body_io_fake') 211 212 assert self.get()['body'] == '21', 'body io fake' 213 214 assert ( 215 self.wait_for_record(r'\[error\].+IOFake getline\(\) \$\/ is \d+') 216 is not None 217 ), 'body io fake $/ value' 218 219 assert ( 220 self.wait_for_record(r'\[error\].+IOFake close\(\) called') 221 is not None 222 ), 'body io fake close' 223 224 def test_perl_delayed_response(self): 225 self.load('delayed_response') 226 227 resp = self.get() 228 229 assert resp['status'] == 200, 'status' 230 assert resp['body'] == 'Hello World!', 'body' 231 232 def test_perl_streaming_body(self): 233 self.load('streaming_body') 234 235 resp = self.get() 236 237 assert resp['status'] == 200, 'status' 238 assert resp['body'] == 'Hello World!', 'body' 239