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
6 : <test-secure-config> ( -- config )
8 "vocab:openssl/test/server.pem" >>key-file
9 "vocab:openssl/test/dh1024.pem" >>dh-file
10 "password" >>password ;
12 : with-test-context ( quot -- )
14 swap with-secure-context ; inline