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

diff --git a/basis/io/sockets/secure/openssl/openssl-tests.factor b/basis/io/sockets/secure/openssl/openssl-tests.factor
index 81e31f5dbfd79ec635e3b40cc710758afbfc741c..17927584f1a8207345b2d4b82434175e540708a8 100644 (file)
--- 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 ] [