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

io.sockets.secure.openssl.tests: fix so you dont get an error when test times out

char-rename
Björn Lindqvist 2016-11-19 23:40:12 +01:00
parent 861b0eacd7
commit 0e7fd0340d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/sockets/secure/openssl/openssl-tests.factor
View File

@ -1,5 +1,6 @@
USING: accessors continuations http.client http.server io.servers USING: accessors continuations http.client http.server io.servers
io.sockets.secure io.sockets.secure.openssl kernel tools.test ; io.sockets.secure io.sockets.secure.openssl io.timeouts kernel
tools.test ;
IN: io.sockets.secure.openssl.tests IN: io.sockets.secure.openssl.tests
{ 200 } [ "https://www.google.se" http-get drop code>> ] unit-test { 200 } [ "https://www.google.se" http-get drop code>> ] unit-test
@ -20,6 +21,10 @@ IN: io.sockets.secure.openssl.tests
{ f } [ "foo.bar.badssl.com" "*.badssl.com" subject-names-match? ] unit-test { f } [ "foo.bar.badssl.com" "*.badssl.com" subject-names-match? ] unit-test
{ f } [ ".com" "*.badssl.com" subject-names-match? ] unit-test { f } [ ".com" "*.badssl.com" subject-names-match? ] unit-test
TUPLE: fake-fd fd ;
M: fake-fd cancel-operation ( obj -- ) drop ;
{ f } [ { f } [
33 <ssl-handle> [ maybe-handshake ] [ drop ] recover connected>> 33 fake-fd boa <ssl-handle> [ maybe-handshake ] [ drop ] recover connected>>
] unit-test ] unit-test