steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
basis/openssl/libssl/libssl-tests.factor
View File

@ -1,16 +1,14 @@
USING: USING: arrays kernel math openssl.libssl sequences tools.test ;
arrays USING: openssl ;
kernel
math
openssl.libssl
sequences
tools.test ;
IN: openssl.libssl.tests 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
SSL_OP_NO_TLSv1_1 SSL_OP_NO_TLSv1_1
SSL_OP_NO_TLSv1_2 SSL_OP_NO_TLSv1_2
@ -28,17 +26,15 @@ IN: openssl.libssl.tests
: new-ssl ( -- ssl ) : new-ssl ( -- ssl )
new-ctx SSL_new ; 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 ] unit-test
! Test setting options ! Test setting options
{ 5 } [ { 3 } [
new-ctx all-opts [ [ set-opt ] [ has-opt ] 2bi ] with map [ t = ] count new-ctx tls-opts [ [ set-opt ] [ has-opt ] 2bi ] with map [ t = ] count
] unit-test ] unit-test
! Initial state ! Initial state