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

change raco test's announcements to say "raco test"

Browse Source 
original commit: 7750cf9800
This commit is contained in:
Robby Findler 2013-02-07 06:57:53 -06:00
parent cde0a28779
commit 12592019cd
1 changed files with 7 additions and 7 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 "running ~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 "running ~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)))]