steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets.secure.openssl.tests: remove windows.winsock import and another test for subject-name

db4
Björn Lindqvist 2013-10-10 18:41:33 +02:00 committed by John Benediktsson
parent 0b15b47743
commit 729bd8a362
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/io/sockets/secure/openssl/openssl-tests.factor
View File

@ -7,8 +7,7 @@ USING:
openssl.libcrypto openssl.libssl openssl.libcrypto openssl.libssl
sequences sequences
tools.test tools.test
urls urls ;
windows.winsock ;
IN: io.sockets.secure.openssl.tests IN: io.sockets.secure.openssl.tests
: new-ssl ( -- ssl ) : new-ssl ( -- ssl )
@ -30,3 +29,14 @@ IN: io.sockets.secure.openssl.tests
new-ssl dup remote ssl-socket-connect dup SSL_set_bio new-ssl dup remote ssl-socket-connect dup SSL_set_bio
dup SSL_connect drop SSL_get_peer_certificate subject-name dup SSL_connect drop SSL_get_peer_certificate subject-name
] unit-test ] 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