SSL fixes
parent
a58ebeabdc
commit
bf8b96c029
|
@ -26,7 +26,7 @@ M: ssl-handle handle-fd file>> handle-fd ;
|
|||
over handle>> handle>> over SSL_get_error ; inline
|
||||
|
||||
! Input ports
|
||||
: check-read-response ( port r -- event ) USING: namespaces io prettyprint ;
|
||||
: check-read-response ( port r -- event )
|
||||
check-response
|
||||
{
|
||||
{ SSL_ERROR_NONE [ swap buffer>> n>buffer f ] }
|
||||
|
|
|
@ -1,21 +1,21 @@
|
|||
USING: io.sockets.secure io.encodings.ascii alien.strings
|
||||
openssl namespaces accessors tools.test continuations kernel ;
|
||||
|
||||
openssl ssl-backend [
|
||||
openssl secure-socket-backend [
|
||||
[ ] [
|
||||
<ssl-config>
|
||||
<secure-config>
|
||||
"resource:extra/openssl/test/server.pem" >>key-file
|
||||
"resource:extra/openssl/test/root.pem" >>ca-file
|
||||
"resource:extra/openssl/test/dh1024.pem" >>dh-file
|
||||
"password" ascii string>alien >>password
|
||||
[ ] with-ssl-context
|
||||
[ ] with-secure-context
|
||||
] unit-test
|
||||
|
||||
[
|
||||
<ssl-config>
|
||||
<secure-config>
|
||||
"resource:extra/openssl/test/server.pem" >>key-file
|
||||
"resource:extra/openssl/test/root.pem" >>ca-file
|
||||
"wrong password" ascii string>alien >>password
|
||||
[ ] with-ssl-context
|
||||
[ ] with-secure-context
|
||||
] must-fail
|
||||
] with-variable
|
||||
|
|
Loading…
Reference in New Issue