From 80dd8d58f75b4b6c8cfa8f7b1de1281d5f02406e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 3 Feb 2013 15:31:09 -0600 Subject: [PATCH] change printouts from raco test to be slightly more informative original commit: 44e91ea961a3807d211ad05183f999f4cec881a1 --- collects/compiler/commands/test.rkt | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/collects/compiler/commands/test.rkt b/collects/compiler/commands/test.rkt index ecda02cfe2..db7ea32d9c 100644 --- a/collects/compiler/commands/test.rkt +++ b/collects/compiler/commands/test.rkt @@ -24,18 +24,25 @@ (or (not check-suffix?) (regexp-match #rx#"\\.rkt$" (path->bytes p)))) (define something-wasnt-declared? #f) - (unless quiet? - (printf "testing ~a\n" p)) (for ([submodule (in-list (if (null? submodules) '(test) (reverse submodules)))]) (define mod `(submod ,p ,submodule)) (cond [(module-declared? mod #t) + (unless quiet? + (printf "running ~s:\n" `(submod ,(if (absolute-path? p) + `(file ,(path->string p)) + (path->string p)) + ,submodule))) (dynamic-require mod #f)] [else (set! something-wasnt-declared? #t)])) (when (and run-anyways? something-wasnt-declared?) + (unless quiet? + (printf "running ~s:\n" (if (absolute-path? p) + `(file ,(path->string p)) + (path->string p)))) (dynamic-require p #f))] [(not (file-exists? p)) (error 'test "given path ~e does not exist" p)])]))