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

speed up the test-engine drracket tests some

Browse Source
This commit is contained in:
Robby Findler 2012-08-29 20:37:15 -05:00
parent 6ca79d56fa
commit 4571afa6ab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/drracket/test-engine-test.rkt
View File

@ -249,7 +249,7 @@
(let* ([drs (test:get-active-top-level-window)] (let* ([drs (test:get-active-top-level-window)]
[interactions (send drs get-interactions-text)]) [interactions (send drs get-interactions-text)])
(clear-definitions drs) (clear-definitions drs)
(type-in-definitions drs expression) (insert-in-definitions drs expression)
(do-execute drs) (do-execute drs)
(let ([got (fetch-output/should-be-tested drs)]) (let ([got (fetch-output/should-be-tested drs)])
(unless (string=? result got) (unless (string=? result got)
@ -382,10 +382,10 @@
[definitions-text (queue-callback/res (λ () (send drs get-definitions-text)))] [definitions-text (queue-callback/res (λ () (send drs get-definitions-text)))]
[handle-definition-insertion [handle-definition-insertion
(lambda (item) (lambda (item)
(type-in-definitions drs item))] (insert-in-definitions drs item))]
[handle-interaction-insertion [handle-interaction-insertion
(lambda (item) (lambda (item)
(type-in-interactions drs item))] (insert-in-interactions drs item))]
[check-expectation [check-expectation
(lambda (expected got) (lambda (expected got)
(cond (cond