Tests: more perl tests.

1 files changed, 13 insertions, 1 deletions

diff --git a/test/test_perl_application.py b/test/test_perl_application.py
index 3b1e9404..f5a23a69 100644
--- a/test/test_perl_application.py
+++ b/test/test_perl_application.py
@@ -57,6 +57,12 @@ class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
 
         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.expectedFailure
     def test_perl_application_input_read_offset(self):
         self.load('input_read_offset')
@@ -80,6 +86,12 @@ class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
 
         self.assertIsNotNone(m, 'errors log')
 
+    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')
 
@@ -100,7 +112,7 @@ class TestUnitPerlApplication(unit.TestUnitApplicationPerl):
 
         body = '0123456789' * 1000
 
-        resp = self.get(body=body)['body']
+        resp = self.post(body=body)['body']
 
         self.assertEqual(resp, body, 'body large')