From b62de0e14d1690e04b3f0ca509eaeadbfa7e6168 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 28 Nov 2019 16:51:57 -0700 Subject: [PATCH] adjust openssl test for Racket CS error message --- pkgs/racket-test/tests/openssl/peer-verif.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test/tests/openssl/peer-verif.rkt b/pkgs/racket-test/tests/openssl/peer-verif.rkt index f430b8e5d4..9c5601db2e 100644 --- a/pkgs/racket-test/tests/openssl/peer-verif.rkt +++ b/pkgs/racket-test/tests/openssl/peer-verif.rkt @@ -62,7 +62,9 @@ verify-fail? (exn? x) ;; late checking may abandon the connection - (regexp-match? #rx"^tcp-(?:read|write):" (exn-message x)))) + (regexp-match? + #rx"(^tcp-(?:read|write):|error (reading from|writing to) stream port)" + (exn-message x)))) (lambda (x) (void))]) (let-values ([(in out) (ssl-accept ssl-listener)]) (check "Server: Accepted connection.~n" #t #t)