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

improved error message

Browse Source 
svn: r7356
This commit is contained in:
Robby Findler 2007-09-16 23:21:24 +00:00
parent 20890b1cf3
commit bd7d167466
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/drscheme/drscheme-test-util.ss
View File

@ -358,7 +358,10 @@
(fw:test:button-push "OK") (fw:test:button-push "OK")
(let ([new-frame (wait-for-new-frame language-dialog)]) (let ([new-frame (wait-for-new-frame language-dialog)])
(unless (eq? new-frame drs-frame) (unless (eq? new-frame drs-frame)
(error 'set-language-level! "didn't get drscheme frame back, got: ~s\n" new-frame)))))))) (error 'set-language-level!
"didn't get drscheme frame back, got: ~s (drs-frame ~s)\n"
new-frame
drs-frame))))))))
(provide/contract [check-language-level ((or/c string? regexp?) . -> . void?)]) (provide/contract [check-language-level ((or/c string? regexp?) . -> . void?)])
;; checks that the language in the drscheme window is set to the given one. ;; checks that the language in the drscheme window is set to the given one.