openssl.libssl: remove the testing of SSLv2 and SSLv3

It caused spurious test errors on Arch and Ubuntu because they are
removing support for those protocols.
char-rename
Björn Lindqvist 2016-11-19 03:42:03 +01:00
parent a1c503c6e4
commit 1448531b24
1 changed files with 12 additions and 16 deletions
basis/openssl/libssl

View File

@ -1,16 +1,14 @@
USING:
arrays
kernel
math
openssl.libssl
sequences
tools.test ;
USING: arrays kernel math openssl.libssl sequences tools.test ;
USING: openssl ;
IN: openssl.libssl.tests
: all-opts ( -- opts )
maybe-init-ssl
! It looks like Arch and Ubuntu Linux in newer versions are disabling
! SSLv2 and SSLv3 so we don't test those options.
: tls-opts ( -- opts )
{
SSL_OP_NO_SSLv2
SSL_OP_NO_SSLv3
SSL_OP_NO_TLSv1
SSL_OP_NO_TLSv1_1
SSL_OP_NO_TLSv1_2
@ -28,17 +26,15 @@ IN: openssl.libssl.tests
: new-ssl ( -- ssl )
new-ctx SSL_new ;
! Test default options. Some Linuxes (Arch) disables SSL_OP_NO_SSLv2
! by default, so we don't test that option.
{
{ f f f f }
{ f f f }
} [
new-ctx all-opts [ has-opt ] with map rest
new-ctx tls-opts [ has-opt ] with map
] unit-test
! Test setting options
{ 5 } [
new-ctx all-opts [ [ set-opt ] [ has-opt ] 2bi ] with map [ t = ] count
{ 3 } [
new-ctx tls-opts [ [ set-opt ] [ has-opt ] 2bi ] with map [ t = ] count
] unit-test
! Initial state