From 861b0eacd70cfe58a3991831784df64b9e54bb32 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sat, 19 Nov 2016 23:24:51 +0100
Subject: [PATCH] openssl.libssl.tests: removing stupid test that didn't work

you can't know beforehand which of the tls versions openssl supports.
---
 basis/openssl/libssl/libssl-tests.factor | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

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