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

replace one inherently racecondition-prone test with two others that approximate it

Browse Source
This commit is contained in:
Robby Findler 2010-12-31 10:48:11 -06:00
parent 00124220bd
commit e75d6b3fae
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/drracket/io.rkt
View File

@ -172,8 +172,12 @@ add this test:
"()\n()")
(do-input-test "(begin (write (read)) (flush-output) (write (read)))"
"(1) (2)\n"
"(1) (2)\n(1)(2)")
(do-input-test "(let ([a (read)][b (read)]) (write a) (write b))"
"(1)\n(2)\n"
"(1)\n(1)(2)\n(2)")
"(1)\n(2)\n(1)(2)")
(do-input-test
(string-append "(let ([b (read-byte)][bs0 (bytes 0)][bs1 (bytes 1)][bs2 (bytes 2)])"