From d4528c36daafcc57bfa623ec7254797adf43d708 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 16 Aug 2016 04:01:08 +0200
Subject: [PATCH] openssl.libssl: fix tc that breaks if sslv2 is disabled

---
 basis/openssl/libssl/libssl-tests.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/basis/openssl/libssl/libssl-tests.factor b/basis/openssl/libssl/libssl-tests.factor
index 3dbdb8d122..1eddd2d0a9 100644
--- a/basis/openssl/libssl/libssl-tests.factor
+++ b/basis/openssl/libssl/libssl-tests.factor
@@ -28,8 +28,13 @@ IN: openssl.libssl.tests
 : 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 default options. Some Linuxes (Arch) disables SSL_OP_NO_SSLv2
+! by default, so we don't test that option.
+{
+    { f f f f }
+} [
+    new-ctx all-opts [ has-opt ] with map rest
+] unit-test
 
 ! Test setting options
 { 5 } [