openssl.libssl: unit tests and wrappings for more parts of libssl

basis/openssl/libssl/libssl-tests.factor

@@ -0,0 +1,47 @@
+USING:
+    arrays
+    kernel
+    math
+    openssl.libssl
+    sequences
+    tools.test ;
+IN: openssl.libssl.tests
+
+: all-opts ( -- opts )
+    {
+        SSL_OP_NO_SSLv2
+        SSL_OP_NO_SSLv3
+        SSL_OP_NO_TLSv1
+        SSL_OP_NO_TLSv1_1
+        SSL_OP_NO_TLSv1_2
+    } [ execute( -- x ) ] map ;
+
+: set-opt ( ctx op -- )
+    SSL_CTRL_OPTIONS swap f SSL_CTX_ctrl drop ;
+
+: has-opt ( ctx op -- ? )
+    swap SSL_CTRL_OPTIONS 0 f SSL_CTX_ctrl bitand 0 > ;
+
+: new-ctx ( -- ctx )
+    SSLv23_client_method SSL_CTX_new ;
+
+: new-ssl ( -- ssl )
+    new-ctx SSL_new ;
+
+! Test default options
+[ { f f f f f } ] [ new-ctx all-opts [ has-opt ] with map ] unit-test
+
+! Test setting options
+[ 5 ] [
+    new-ctx all-opts [ [ set-opt ] [ has-opt ] 2bi ] with map [ t = ] count
+] unit-test
+
+! Initial state
+[ { "before/connect initialization" "read header" 1 f } ] [
+    new-ssl {
+        SSL_state_string_long
+        SSL_rstate_string_long
+        SSL_want
+        SSL_get_peer_certificate
+    } [ execute( x -- x ) ] with map
+] unit-test

basis/openssl/libssl/libssl.factor

@@ -2,7 +2,7 @@
 ! Portions copyright (C) 2008 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.c-types alien.syntax classes.struct combinators kernel
-system namespaces assocs parser lexer sequences words
+openssl.libcrypto system namespaces assocs parser lexer sequences words
 quotations math.bitwise alien.libraries literals ;
 
 IN: openssl.libssl
@@ -62,6 +62,12 @@ CONSTANT: SSL_CTRL_GET_SESS_CACHE_MODE      45
 CONSTANT: SSL_CTRL_GET_MAX_CERT_LIST        50
 CONSTANT: SSL_CTRL_SET_MAX_CERT_LIST        51
 
+CONSTANT: SSL_OP_NO_SSLv2 0x01000000
+CONSTANT: SSL_OP_NO_SSLv3 0x02000000
+CONSTANT: SSL_OP_NO_TLSv1 0x04000000
+CONSTANT: SSL_OP_NO_TLSv1_2 0x08000000
+CONSTANT: SSL_OP_NO_TLSv1_1 0x10000000
+
 CONSTANT: SSL_ERROR_NONE             0
 CONSTANT: SSL_ERROR_SSL              1
 CONSTANT: SSL_ERROR_WANT_READ        2
@@ -88,7 +94,6 @@ CONSTANT: SSL_ERROR_WANT_ACCEPT      8
 
 C-TYPE: SSL_CTX
 C-TYPE: SSL_SESSION
-C-TYPE: SSL
 
 LIBRARY: libssl
 
@@ -157,7 +162,6 @@ FUNCTION: X509_EXTENSION* X509_get_ext ( X509* a, int loc ) ;
 ! ===============================================
 ! x509v3.h
 ! ===============================================
-
 STRUCT: X509V3_EXT_METHOD
     { ext_nid int }
     { ext_flags int }
@@ -221,10 +225,69 @@ STRUCT: ssl_method_st
     { ssl_ctx_callback_ctrl void* } ;
 TYPEDEF: ssl_method_st* ssl-method
 
+STRUCT: ssl_st
+    { version int }
+    { type int }
+    { method ssl_method_st* }
+    { rbio BIO* }
+    { wbio BIO* }
+    { bbio BIO* }
+    { rwstate int }
+    { in_handshake int }
+    { handshake_func void* }
+    { server int }
+    { new_session int }
+    { quiet_shutdown int }
+    { shutdown int }
+    { state int }
+    { rstate int }
+    { init_buf void* }
+    { init_msg void* }
+    { init_num int }
+    { init_off int }
+    { packet void* }
+    { packet_length int }
+    { s2 void* }
+    { s3 void* }
+    { d1 void* }
+    { read_ahead int }
+    { msg_callback void* }
+    { msg_callback_arg void* }
+    { hit int }
+    { param void* }
+    { cipher_list void* }
+    { cipher_list_by_id void* }
+    { mac_flags int }
+    { enc_read_ctx void* }
+    { read_hash void* }
+    { expand void* }
+    { enc_write_ctx void* }
+    { write_hash void* }
+    { compress void* }
+    { cert void* }
+    { sid_ctx_length uint }
+    { sid_ctx void* }
+    { session SSL_SESSION* }
+    { generate_session_id void* }
+    { verify_mode int }
+    { verify_callback void* }
+    { info_callback void* }
+    { error int }
+    { error_code int }
+    { kssl_ctx void* }
+    { psk_client_callback void* }
+    { psk_server_callback void* }
+    { ctx SSL_CTX* } ;
+TYPEDEF: ssl_st SSL
+
 FUNCTION: c-string SSL_get_version ( SSL* ssl ) ;
 
 ! Maps OpenSSL errors to strings
 FUNCTION: void SSL_load_error_strings (  ) ;
+FUNCTION: c-string SSL_state_string ( SSL* ssl ) ;
+FUNCTION: c-string SSL_rstate_string ( SSL* ssl ) ;
+FUNCTION: c-string SSL_state_string_long ( SSL* ssl ) ;
+FUNCTION: c-string SSL_rstate_string_long ( SSL* ssl ) ;
 
 ! Must be called before any other action takes place
 FUNCTION: int SSL_library_init (  ) ;
@@ -264,6 +327,8 @@ FUNCTION: int SSL_set_fd ( SSL* ssl, int fd ) ;
 FUNCTION: void SSL_set_bio ( SSL* ssl, void* rbio, void* wbio ) ;
 
 FUNCTION: int SSL_set_session ( SSL* to, SSL_SESSION* session ) ;
+FUNCTION: SSL_SESSION* SSL_get_session ( SSL* to ) ;
+FUNCTION: SSL_SESSION* SSL_get1_session ( SSL* ssl ) ;
 
 FUNCTION: int SSL_get_error ( SSL* ssl, int ret ) ;
 
@@ -288,8 +353,6 @@ FUNCTION: int SSL_get_shutdown ( SSL* ssl ) ;
 
 FUNCTION: int SSL_CTX_set_session_id_context ( SSL_CTX* ctx, c-string sid_ctx, uint len ) ;
 
-FUNCTION: SSL_SESSION* SSL_get1_session ( SSL* ssl ) ;
-
 FUNCTION: void SSL_free ( SSL* ssl ) ;
 
 FUNCTION: void SSL_SESSION_free ( SSL_SESSION* ses ) ;