Tests: more QUERY_STRING tests.

This commit is contained in:
Andrey Zelenkov
2018-12-24 20:35:18 +03:00
parent fac0ef29d5
commit f9a3328a25
5 changed files with 88 additions and 0 deletions

View File

@@ -55,6 +55,25 @@ class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
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')
@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')
@unittest.expectedFailure
def test_perl_application_server_port(self):
self.load('server_port')