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

openssl.libssl.tests: removing stupid test that didn't work 

you can't know beforehand which of the tls versions openssl supports.
char-rename
Björn Lindqvist 2016-11-19 23:24:51 +01:00
parent c6361436bf
commit 861b0eacd7
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,5 @@
USING: arrays destructors kernel math openssl openssl.libssl sequences USING: destructors kernel math openssl openssl.libssl sequences
tools.test ; tools.test ;
USING: openssl ;
IN: openssl.libssl.tests IN: openssl.libssl.tests
maybe-init-ssl maybe-init-ssl
@ -57,14 +55,3 @@ maybe-init-ssl
} [ execute( x -- x ) ] with map } [ execute( x -- x ) ] with map
] with-destructors ] with-destructors
] unit-test ] 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