basis/openssl/openssl-tests.factor

   1 USING: io.sockets.secure io.encodings.ascii alien.strings
   2 openssl namespaces accessors tools.test continuations kernel ;
   3
   4 openssl secure-socket-backend [
   5     [ ] [
   6         <secure-config>
   7             "resource:basis/openssl/test/server.pem" >>key-file
   8             "resource:basis/openssl/test/root.pem" >>ca-file
   9             "resource:basis/openssl/test/dh1024.pem" >>dh-file
  10             "password" >>password
  11         [ ] with-secure-context
  12     ] unit-test
  13
  14     [
  15         <secure-config>
  16             "resource:basis/openssl/test/server.pem" >>key-file
  17             "resource:basis/openssl/test/root.pem" >>ca-file
  18             "wrong password" >>password
  19         [ ] with-secure-context
  20     ] must-fail
  21 ] with-variable