From e75d6b3fae9690047bd7793ff2675762d4652a48 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 31 Dec 2010 10:48:11 -0600 Subject: [PATCH] replace one inherently racecondition-prone test with two others that approximate it --- collects/tests/drracket/io.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/tests/drracket/io.rkt b/collects/tests/drracket/io.rkt index 5d2050b7cf..7f111ba140 100644 --- a/collects/tests/drracket/io.rkt +++ b/collects/tests/drracket/io.rkt @@ -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)])"