From 729bd8a362d8856fc895ae6dca67a03993171960 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Thu, 10 Oct 2013 18:41:33 +0200 Subject: [PATCH] io.sockets.secure.openssl.tests: remove windows.winsock import and another test for subject-name --- .../io/sockets/secure/openssl/openssl-tests.factor | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/basis/io/sockets/secure/openssl/openssl-tests.factor b/basis/io/sockets/secure/openssl/openssl-tests.factor index ed4da5ac74..75da5489a9 100644 --- a/basis/io/sockets/secure/openssl/openssl-tests.factor +++ b/basis/io/sockets/secure/openssl/openssl-tests.factor @@ -7,8 +7,7 @@ USING: openssl.libcrypto openssl.libssl sequences tools.test - urls - windows.winsock ; + urls ; IN: io.sockets.secure.openssl.tests : new-ssl ( -- ssl ) @@ -30,3 +29,14 @@ IN: io.sockets.secure.openssl.tests new-ssl dup remote ssl-socket-connect dup SSL_set_bio dup SSL_connect drop SSL_get_peer_certificate subject-name ] unit-test + +[ "www.google.com" ] [ + new-ssl + [ + remote (client) drop nip handle>> handle>> + alien-address BIO_NOCLOSE BIO_new_socket dup SSL_set_bio + ] + [ SSL_connect drop ] + [ SSL_get_peer_certificate ] tri + subject-name +] unit-test