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

! 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.debug


GENERIC: <test-secure-config>* ( obj -- config )


M: TLSv1 <test-secure-config>* ( obj -- config )
    drop <secure-config>
        "vocab:openssl/test-1.0/server.pem" >>key-file
        "vocab:openssl/test-1.0/dh1024.pem" >>dh-file
        "password" >>password ;

M: object <test-secure-config>* ( obj -- config )
    drop <secure-config>
        "vocab:openssl/test-1.2/server.pem" >>key-file
        "vocab:openssl/test-1.2/dh1024.pem" >>dh-file
        "password" >>password ;

: <test-secure-config> ( -- config )
    best-tls-method <test-secure-config>* ;

: with-test-context ( quot -- )
    <test-secure-config>
    swap with-secure-context ; inline