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

View File

@ -1,5 +1,6 @@
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
{ 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 } [ ".com" "*.badssl.com" subject-names-match? ] unit-test
TUPLE: fake-fd fd ;
M: fake-fd cancel-operation ( obj -- ) drop ;
{ f } [
33 <ssl-handle> [ maybe-handshake ] [ drop ] recover connected>>
33 fake-fd boa <ssl-handle> [ maybe-handshake ] [ drop ] recover connected>>
] unit-test