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

tweak raco test output, yet again

Browse Source
This commit is contained in:
Robby Findler 2013-02-07 10:15:02 -06:00
parent 6c93cfea56
commit 86b1f276eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/commands/test.rkt
View File

@ -32,7 +32,7 @@
(cond (cond
[(module-declared? mod #t) [(module-declared? mod #t)
(unless quiet? (unless quiet?
(printf "raco test ~s:\n" `(submod ,(if (absolute-path? p) (printf "raco test: ~s\n" `(submod ,(if (absolute-path? p)
`(file ,(path->string p)) `(file ,(path->string p))
(path->string p)) (path->string p))
,submodule))) ,submodule)))
@ -41,7 +41,7 @@
(set! something-wasnt-declared? #t)])) (set! something-wasnt-declared? #t)]))
(when (and run-anyways? something-wasnt-declared?) (when (and run-anyways? something-wasnt-declared?)
(unless quiet? (unless quiet?
(printf "raco test ~s:\n" (if (absolute-path? p) (printf "raco test: ~s\n" (if (absolute-path? p)
`(file ,(path->string p)) `(file ,(path->string p))
(path->string p)))) (path->string p))))
(dynamic-require p 0)))] (dynamic-require p 0)))]