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