1 ! Copyright (C) 2008 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 : with-test-context ( quot -- )
8 "resource:basis/openssl/test/server.pem" >>key-file
9 "resource:basis/openssl/test/dh1024.pem" >>dh-file
11 swap with-secure-context ; inline