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

remove now-unneeded debugging printfs from drracket's module-lang test suite

Browse Source
This commit is contained in:
Robby Findler 2011-11-30 08:23:50 -06:00
parent 458e2c2282
commit c338e5bfe3
2 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/drracket/module-lang-test.rkt
View File

@ -378,5 +378,4 @@
;; test to make sure that we don't get "exception raised by error display handler" ;; test to make sure that we don't get "exception raised by error display handler"
#rx"module-lang-test-syn-error.rkt:[0-9]+:[0-9]+: lambda: bad syntax in: \\(lambda\\)") #rx"module-lang-test-syn-error.rkt:[0-9]+:[0-9]+: lambda: bad syntax in: \\(lambda\\)")
(printf "starting drracket\n")
(fire-up-drscheme-and-run-tests run-test) (fire-up-drscheme-and-run-tests run-test)

14
collects/tests/drracket/private/module-lang-test-utils.rkt
View File

@ -65,7 +65,6 @@
(begin (write-test-modules* 'name '(module name lang x ...)) ...)])) (begin (write-test-modules* 'name '(module name lang x ...)) ...)]))
(define (single-test test) (define (single-test test)
(printf "single-test: ~s\n" (test-definitions test))
(let/ec k (let/ec k
(clear-definitions drs) (clear-definitions drs)
(insert-in-definitions drs (test-definitions test)) (insert-in-definitions drs (test-definitions test))
@ -150,32 +149,24 @@
(define definitions-text 'not-yet-definitions-text) (define definitions-text 'not-yet-definitions-text)
(define (run-test) (define (run-test)
(printf "run-test.1\n")
(set! drs (wait-for-drscheme-frame)) (set! drs (wait-for-drscheme-frame))
(set! interactions-text (send drs get-interactions-text)) (set! interactions-text (send drs get-interactions-text))
(set! definitions-text (send drs get-definitions-text)) (set! definitions-text (send drs get-definitions-text))
(printf "run-test.2\n")
(init-temp-files) (init-temp-files)
(printf "run-test.3\n")
(run-use-compiled-file-paths-tests) (run-use-compiled-file-paths-tests)
(printf "run-test.4\n")
(set-module-language! #f) (set-module-language! #f)
(test:set-radio-box-item! "Debugging") (test:set-radio-box-item! "Debugging")
(let ([f (queue-callback/res (λ () (test:get-active-top-level-window)))]) (let ([f (queue-callback/res (λ () (test:get-active-top-level-window)))])
(test:button-push "OK") (test:button-push "OK")
(wait-for-new-frame f)) (wait-for-new-frame f))
(printf "run-test.5\n")
(for-each single-test (reverse tests)) (for-each single-test (reverse tests))
(printf "run-test.6\n")
(clear-definitions drs) (clear-definitions drs)
(queue-callback/res (λ () (send (send drs get-definitions-text) set-modified #f))) (queue-callback/res (λ () (send (send drs get-definitions-text) set-modified #f)))
(printf "run-test.7\n")
(for ([file temp-files]) (for ([file temp-files])
(when (file-exists? file) (when (file-exists? file)
(delete-file file)))) (delete-file file))))
(define (run-use-compiled-file-paths-tests) (define (run-use-compiled-file-paths-tests)
(printf "run-use-compiled-file-paths-tests.1\n")
(define (setup-dialog/run proc) (define (setup-dialog/run proc)
(set-module-language! #f) (set-module-language! #f)
(proc) (proc)
@ -212,13 +203,8 @@
(define compiled (build-path "compiled")) (define compiled (build-path "compiled"))
(clear-definitions drs) (clear-definitions drs)
(printf "run-use-compiled-file-paths-tests.2\n")
(insert-in-definitions drs "#lang scheme\n(use-compiled-file-paths)") (insert-in-definitions drs "#lang scheme\n(use-compiled-file-paths)")
(printf "run-use-compiled-file-paths-tests.3\n")
(run-one-test "No debugging or profiling" (list drs/compiled compiled) (list compiled)) (run-one-test "No debugging or profiling" (list drs/compiled compiled) (list compiled))
(printf "run-use-compiled-file-paths-tests.4\n")
(run-one-test "Debugging" (list drs/compiled/et compiled/et compiled) (list compiled/et compiled)) (run-one-test "Debugging" (list drs/compiled/et compiled/et compiled) (list compiled/et compiled))
(printf "run-use-compiled-file-paths-tests.5\n")
(run-one-test "Debugging and profiling" (list compiled)) (run-one-test "Debugging and profiling" (list compiled))
(printf "run-use-compiled-file-paths-tests.6\n")
(run-one-test "Syntactic test suite coverage" (list compiled))) (run-one-test "Syntactic test suite coverage" (list compiled)))