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

Order of printing test results switched.

Browse Source 
svn: r12598
This commit is contained in:
Kathy Gray 2008-11-26 17:32:26 +00:00
parent 777d4d3f89
commit b983347a2b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/profj/tool.ss
View File

@ -794,6 +794,8 @@
(list (send execute-types get-test-classes) null) (list (send execute-types get-test-classes) null)
(find-examples compilation-units))]) (find-examples compilation-units))])
#;(printf "ProfJ compilation complete~n") #;(printf "ProfJ compilation complete~n")
#;(printf "compilation units- ~a~n" (map syntax->datum
(apply append (map compilation-unit-code compilation-units))))
(set! compiled? #t) (set! compiled? #t)
(set! modules (order compilation-units)) (set! modules (order compilation-units))
(when rep (send rep set-user-types execute-types)) (when rep (send rep set-user-types execute-types))
@ -830,7 +832,6 @@
(send ,test-engine-obj run) (send ,test-engine-obj run)
#;(printf "Test methods run~n") #;(printf "Test methods run~n")
(send ,test-engine-obj setup-display ,rep ,eventspace) (send ,test-engine-obj setup-display ,rep ,eventspace)
(send ,test-engine-obj summarize-results (current-output-port))
(let ([test-objs (send ,test-engine-obj test-objects)]) (let ([test-objs (send ,test-engine-obj test-objects)])
(let inner-loop ((os test-objs)) (let inner-loop ((os test-objs))
(unless (null? os) (unless (null? os)
@ -842,7 +843,9 @@
(write-special (car out)) (write-special (car out))
(loop (cdr out)))) (loop (cdr out))))
(newline)) (newline))
(inner-loop (cdr os))))))) (inner-loop (cdr os)))))
(send ,test-engine-obj summarize-results (current-output-port))
))
#f))] #f))]
[(and (not require?) (null? modules) tests-run?) [(and (not require?) (null? modules) tests-run?)
(begin0 (begin0