]> gitweb.factorcode.org Git - factor.git/blob - basis/io/sockets/secure/secure-tests.factor
557bba52d267c66b71fb86a05cdfcfbccf1b4aee
[factor.git] / basis / io / sockets / secure / secure-tests.factor
1 IN: io.sockets.secure.tests
2 USING: accessors kernel io.sockets io.sockets.secure tools.test ;
3
4 [ "hello" 24 ] [ "hello" 24 <inet> <secure> [ host>> ] [ port>> ] bi ] unit-test
5
6 [ ] [
7     <secure-config>
8         "resource:basis/openssl/test/server.pem" >>key-file
9         "resource:basis/openssl/test/dh1024.pem" >>dh-file
10         "password" >>password
11     [ ] with-secure-context
12 ] unit-test