io.sockets.secure.unix.debug: Add <test-config> word
parent
575132336d
commit
3f1e6a46e4
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue