basis/io/sockets/secure/unix/debug/debug.factor

   1 ! Copyright (C) 2008, 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors io.sockets.secure kernel ;
   4 IN: io.sockets.secure.unix.debug
   5
   6 : <test-secure-config> ( -- config )
   7     <secure-config>
   8         "vocab:openssl/test/server.pem" >>key-file
   9         "vocab:openssl/test/dh1024.pem" >>dh-file
  10         "password" >>password ;
  11
  12 : with-test-context ( quot -- )
  13     <test-secure-config>
  14     swap with-secure-context ; inline