factor/basis/io/sockets/secure/secure-tests.factor

15 lines
457 B
Factor
Raw Normal View History

2008-06-17 01:04:18 -04:00
IN: io.sockets.secure.tests
USING: accessors kernel io.sockets io.sockets.secure system tools.test ;
2008-06-17 01:04:18 -04:00
{ "hello" 24 } [ "hello" 24 <inet> <secure> [ host>> ] [ port>> ] bi ] unit-test
{ } [
<secure-config>
2009-02-15 20:53:21 -05:00
"vocab:openssl/test/server.pem" >>key-file
"vocab:openssl/test/dh1024.pem" >>dh-file
"password" >>password
[ ] with-secure-context
] unit-test
{ t } [ os windows? ssl-certificate-verification-supported? or ] unit-test