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

db4
Doug Coleman 2014-04-08 12:08:58 -07:00
parent bc89b6c7d5
commit d123f589f7
1 changed files with 1 additions and 1 deletions
basis/io/sockets/secure/openssl

View File

@ -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 ] [