io.sockets.secure.unix.debug: Add <test-config> word

db4
Slava Pestov 2009-03-18 19:30:57 -05:00
parent 575132336d
commit 3f1e6a46e4
1 changed files with 6 additions and 3 deletions

View File

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