basis/openssl/openssl-tests.factor

   1 USING: accessors io.sockets.secure io.sockets.secure.debug namespaces
   2 openssl tools.test ;
   3
   4 openssl secure-socket-backend [
   5     { } [
   6         <test-secure-config>
   7         [ ] with-secure-context
   8     ] unit-test
   9
  10     [
  11         <test-secure-config> "wrong password" >>password
  12         [ ] with-secure-context
  13     ] must-fail
  14 ] with-variable