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

unbroke the test suite ...

Browse Source
This commit is contained in:
Robby Findler 2010-09-04 11:18:20 -05:00
parent d5a3e08131
commit a2b11a0329
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/drracket/syncheck-test.rkt
View File

@ -858,11 +858,13 @@ trigger runtime errors in check syntax.
(send defs save-file filename) (send defs save-file filename)
(preferences:set 'framework:coloring-active #f) (preferences:set 'framework:coloring-active #f)
(close-the-error-window-test drs) (close-the-error-window-test drs)
;(for-each (run-one-test (normalize-path dir)) tests) (for-each (run-one-test (normalize-path dir)) tests)
(preferences:set 'framework:coloring-active #t) (preferences:set 'framework:coloring-active #t)
(send defs save-file) ;; clear out autosave (send defs save-file) ;; clear out autosave
(send defs set-filename #f) (send defs set-filename #f)
(delete-file filename))))))) (delete-file filename)
(printf "Ran ~a tests.\n" total-tests-run)))))))
(define (close-the-error-window-test drs) (define (close-the-error-window-test drs)
(clear-definitions drs) (clear-definitions drs)
@ -875,7 +877,10 @@ trigger runtime errors in check syntax.
(when (send drs syncheck:error-report-visible?) (when (send drs syncheck:error-report-visible?)
(error 'close-the-error-window-test "error report window did not go away after clicking Run"))) (error 'close-the-error-window-test "error report window did not go away after clicking Run")))
(define total-tests-run 0)
(define ((run-one-test save-dir) test) (define ((run-one-test save-dir) test)
(set! total-tests-run (+ total-tests-run 1))
(let* ([drs (wait-for-drscheme-frame)] (let* ([drs (wait-for-drscheme-frame)]
[defs (send drs get-definitions-text)] [defs (send drs get-definitions-text)]
[input (test-input test)] [input (test-input test)]