Added test_verify_cert_fail.

git-svn-id: http://svn.osafoundation.org/m2crypto/trunk@418 2715db39-9adf-0310-9c64-84f055769b4b

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/test_ssl.py b/tests/test_ssl.py
index 58b0860..4c62be1 100644
--- a/tests/test_ssl.py
+++ b/tests/test_ssl.py
@@ -453,6 +453,22 @@ class SSLClientTestCase(unittest.TestCase):
             self.stop_server(pid)
         self.failIf(string.find(data, 's_server -quiet -www') == -1)
 
+    def test_verify_cert_fail(self):
+        pid = self.start_server(self.args)
+        try:
+            ctx = SSL.Context()
+            ctx.set_verify(SSL.verify_peer | SSL.verify_fail_if_no_peer_cert, 9)
+            ctx.load_verify_locations('server.pem')
+            s = SSL.Connection(ctx)
+            try:
+                s.connect(self.srv_addr)
+            except SSL.SSLError, e:
+                assert 0, e
+            data = self.http_get(s)
+            s.close()
+        finally:
+            self.stop_server(pid)
+        self.failIf(string.find(data, 's_server -quiet -www') == -1)
 
     def test_HTTPSConnection(self):
         pid = self.start_server(self.args)