io.sockets.secure.openssl: Check error code in unit test.

2014-04-08 12:08:58 -07:00 · 2014-04-08 12:08:58 -07:00 · d123f589f7
parent bc89b6c7d5
commit d123f589f7
1 changed files with 1 additions and 1 deletions
--- a/basis/io/sockets/secure/openssl/openssl-tests.factor
+++ b/basis/io/sockets/secure/openssl/openssl-tests.factor
@ -28,7 +28,7 @@ IN: io.sockets.secure.openssl.tests

 [ "www.google.com" ] [
    new-ssl dup remote ssl-socket-connect dup SSL_set_bio
-    dup SSL_connect drop SSL_get_peer_certificate subject-name
+    dup SSL_connect -1 = [ "SSL_connect failed in unit test" ] [ SSL_get_peer_certificate subject-name ] if
 ] unit-test

 [ t ] [