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

fix a race (suggested by drdr test results)

Browse Source
This commit is contained in:
Robby Findler 2011-09-26 06:08:58 -05:00
parent 09b0a46dcd
commit ae34e1a960
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/drracket/teaching-lang-save-file.rkt
View File

@ -18,8 +18,10 @@
(set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$")) (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$"))
(clear-definitions drr-frame) (clear-definitions drr-frame)
(queue-callback/res
(λ ()
(send definitions-text set-filename fn) (send definitions-text set-filename fn)
(send definitions-text insert "(define (f x) x)\n(f 1)\n") (send definitions-text insert "(define (f x) x)\n(f 1)\n")))
(test:menu-select "File" "Save Definitions") (test:menu-select "File" "Save Definitions")
(unless (call-with-input-file fn (unless (call-with-input-file fn
(λ (p) (regexp-match #rx";;[^\n]*metadata" p))) (λ (p) (regexp-match #rx";;[^\n]*metadata" p)))