diff --git a/basis/openssl/libssl/libssl-tests.factor b/basis/openssl/libssl/libssl-tests.factor index dcbe9b98a8..c9d0b673aa 100644 --- a/basis/openssl/libssl/libssl-tests.factor +++ b/basis/openssl/libssl/libssl-tests.factor @@ -1,7 +1,5 @@ -USING: arrays destructors kernel math openssl openssl.libssl sequences +USING: destructors kernel math openssl openssl.libssl sequences tools.test ; -USING: openssl ; - IN: openssl.libssl.tests maybe-init-ssl @@ -57,14 +55,3 @@ maybe-init-ssl } [ execute( x -- x ) ] with map ] with-destructors ] unit-test - -: method>version-string ( method -- str ) - new-ctx new-ssl SSL_get_version ; - -! SSL_get_version -{ { "TLSv1" "TLSv1.1" "TLSv1.2" } } [ - [ - TLSv1_method TLSv1_1_method TLSv1_2_method 3array - [ method>version-string ] map - ] with-destructors -] unit-test