basis/io/sockets/secure/secure-tests.factor

   1 IN: io.sockets.secure.tests
   2 USING: accessors kernel io.sockets io.sockets.secure system tools.test ;
   3
   4 { "hello" 24 } [ "hello" 24 <inet> <secure> [ host>> ] [ port>> ] bi ] unit-test
   5
   6 { } [
   7     <secure-config>
   8         "vocab:openssl/test/server.pem" >>key-file
   9         "vocab:openssl/test/dh1024.pem" >>dh-file
  10         "password" >>password
  11     [ ] with-secure-context
  12 ] unit-test
  13
  14 { t } [ os windows? ssl-certificate-verification-supported? or ] unit-test