openssl.libssl: add to test and make it not care how long the array is

diff --git a/basis/openssl/libssl/libssl-tests.factor b/basis/openssl/libssl/libssl-tests.factor
index d8711a32432b2462bce2177f28eae514cbeaaa96..dfc65d56b3ebb8281fd5962c31720f5f6d5b2a62 100644 (file)
--- a/basis/openssl/libssl/libssl-tests.factor
+++ b/basis/openssl/libssl/libssl-tests.factor
@@ -11,6 +11,7 @@ maybe-init-ssl
         SSL_OP_NO_TLSv1
         SSL_OP_NO_TLSv1_1
         SSL_OP_NO_TLSv1_2
+        SSL_OP_NO_TLSv1_3
     } [ execute( -- x ) ] map ;
 
 : set-opt ( ctx op -- )
@@ -28,12 +29,10 @@ maybe-init-ssl
 : new-ssl ( ctx -- ssl )
     SSL_new &SSL_free ;
 
-{
-    { f f f }
-} [
+{ t } [
     [
         new-tls-ctx tls-opts [ has-opt ] with map
-    ] with-destructors
+    ] with-destructors [ f = ] all?
 ] unit-test
 
 ! Test setting options