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

SSL fixes

db4
Slava Pestov 2008-05-18 19:08:56 -05:00
parent a58ebeabdc
commit bf8b96c029
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/io/unix/sockets/secure/secure.factor
View File

@ -26,7 +26,7 @@ M: ssl-handle handle-fd file>> handle-fd ;
over handle>> handle>> over SSL_get_error ; inline over handle>> handle>> over SSL_get_error ; inline
! Input ports ! Input ports
: check-read-response ( port r -- event ) USING: namespaces io prettyprint ; : check-read-response ( port r -- event )
check-response check-response
{ {
{ SSL_ERROR_NONE [ swap buffer>> n>buffer f ] } { SSL_ERROR_NONE [ swap buffer>> n>buffer f ] }

10
extra/openssl/openssl-tests.factor
View File

@ -1,21 +1,21 @@
USING: io.sockets.secure io.encodings.ascii alien.strings USING: io.sockets.secure io.encodings.ascii alien.strings
openssl namespaces accessors tools.test continuations kernel ; 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/server.pem" >>key-file
"resource:extra/openssl/test/root.pem" >>ca-file "resource:extra/openssl/test/root.pem" >>ca-file
"resource:extra/openssl/test/dh1024.pem" >>dh-file "resource:extra/openssl/test/dh1024.pem" >>dh-file
"password" ascii string>alien >>password "password" ascii string>alien >>password
[ ] with-ssl-context [ ] with-secure-context
] unit-test ] unit-test
[ [
<ssl-config> <secure-config>
"resource:extra/openssl/test/server.pem" >>key-file "resource:extra/openssl/test/server.pem" >>key-file
"resource:extra/openssl/test/root.pem" >>ca-file "resource:extra/openssl/test/root.pem" >>ca-file
"wrong password" ascii string>alien >>password "wrong password" ascii string>alien >>password
[ ] with-ssl-context [ ] with-secure-context
] must-fail ] must-fail
] with-variable ] with-variable