22 lines
718 B
Factor
22 lines
718 B
Factor
USING: io.sockets.secure io.encodings.ascii alien.strings
|
|
openssl namespaces accessors tools.test continuations kernel ;
|
|
|
|
openssl secure-socket-backend [
|
|
[ ] [
|
|
<secure-config>
|
|
"resource:basis/openssl/test/server.pem" >>key-file
|
|
"resource:basis/openssl/test/root.pem" >>ca-file
|
|
"resource:basis/openssl/test/dh1024.pem" >>dh-file
|
|
"password" >>password
|
|
[ ] with-secure-context
|
|
] unit-test
|
|
|
|
[
|
|
<secure-config>
|
|
"resource:basis/openssl/test/server.pem" >>key-file
|
|
"resource:basis/openssl/test/root.pem" >>ca-file
|
|
"wrong password" >>password
|
|
[ ] with-secure-context
|
|
] must-fail
|
|
] with-variable
|