From b983347a2b06440c2e63a4385e67bfda9693a3a5 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Wed, 26 Nov 2008 17:32:26 +0000 Subject: [PATCH] Order of printing test results switched. svn: r12598 --- collects/profj/tool.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss index 0f436edd9c..710fdd8970 100644 --- a/collects/profj/tool.ss +++ b/collects/profj/tool.ss @@ -794,6 +794,8 @@ (list (send execute-types get-test-classes) null) (find-examples compilation-units))]) #;(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! modules (order compilation-units)) (when rep (send rep set-user-types execute-types)) @@ -830,7 +832,6 @@ (send ,test-engine-obj run) #;(printf "Test methods run~n") (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 inner-loop ((os test-objs)) (unless (null? os) @@ -842,7 +843,9 @@ (write-special (car out)) (loop (cdr out)))) (newline)) - (inner-loop (cdr os))))))) + (inner-loop (cdr os))))) + (send ,test-engine-obj summarize-results (current-output-port)) + )) #f))] [(and (not require?) (null? modules) tests-run?) (begin0