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

repair a test

Browse Source 
Repair a test that is part of 8464896255, because `write-bytes-avail*`
is not obliged to write all bytes.
This commit is contained in:
Matthew Flatt 2020-07-02 15:37:11 -06:00
parent e0f390c8c8
commit 3824ddc5b4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test-core/tests/racket/portlib.rktl
View File

@ -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)))
;; --------------------------------------------------