From 2649e21e4baa85b1a6eb29f16c7ab4f2156f62ef Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 24 Sep 2010 20:33:58 -0500 Subject: [PATCH] fixed race-condition in hangman test case --- collects/tests/drracket/hangman.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/drracket/hangman.rkt b/collects/tests/drracket/hangman.rkt index b765aca84b..ea585bdbee 100644 --- a/collects/tests/drracket/hangman.rkt +++ b/collects/tests/drracket/hangman.rkt @@ -8,7 +8,9 @@ (define defs (send drs get-definitions-text)) (define rep (send drs get-interactions-text)) (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$")) - (send defs load-file (collection-file-path "hangman1.rkt" "htdp" "tests")) + (run-one/sync + (lambda () + (send defs load-file (collection-file-path "hangman1.rkt" "htdp" "tests")))) (do-execute drs) (insert-in-interactions drs "(hangman make-word reveal symbol?)") (alt-return-in-interactions drs)