suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

openssl: fix a test to suppress some expected error output

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-27 10:57:26 -06:00
parent d93c12fcda
commit 993563a829
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test/tests/openssl/peer-verif.rkt
View File

@ -44,6 +44,13 @@
(regexp-match? #rx"accept failed" (exn-message x))))
(lambda (x) (ssl-close ssl-listener))]
[(lambda (x) (and verify-fail? (eq? x 'escape)))
(lambda (x) (void))]
[(lambda (x) (and (eq? later-mode 'req)
(not valid?)
verify-fail?
(exn? x)
;; late checking may abandon the connection
(regexp-match? #rx"^tcp-(?:read|write):" (exn-message x))))
(lambda (x) (void))])
(let-values ([(in out) (ssl-accept ssl-listener)])
(check "Server: Accepted connection.~n" #t #t)
@ -120,6 +127,6 @@
(unless (regexp-match? #rx"connect failed" s)
(error 'test "failed: ~s" s)))
(check-fail (lambda () (go #f #:early 'req #:accept-fail? #t)))
(check-fail (lambda () (go #f #:early 'req #:accept-fail? #t)));
(go #f #:later 'req #:verify-fail? #t)