From 3824ddc5b44cb020ccf5665aba7fea6b5603edf2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 2 Jul 2020 15:37:11 -0600 Subject: [PATCH] repair a test Repair a test that is part of 8464896255, because `write-bytes-avail*` is not obliged to write all bytes. --- pkgs/racket-test-core/tests/racket/portlib.rktl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/portlib.rktl b/pkgs/racket-test-core/tests/racket/portlib.rktl index dc9e58ede2..7560e5320c 100644 --- a/pkgs/racket-test-core/tests/racket/portlib.rktl +++ b/pkgs/racket-test-core/tests/racket/portlib.rktl @@ -1059,7 +1059,8 @@ (test "012" read-string 3 i2) (thread-wait sync-thread) (test #t equal? sync-test-var 1) - (test 5 write-bytes-avail* #"test123" two-pipes)) + (let ([n (write-bytes-avail* #"test123" two-pipes)]) + (test #t <= 1 n 5))) ;; --------------------------------------------------