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

fixed race-condition in hangman test case

Browse Source
This commit is contained in:
Robby Findler 2010-09-24 20:33:58 -05:00
parent 273e6e7d25
commit 2649e21e4b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/drracket/hangman.rkt
View File

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