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

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

@ -32,18 +32,18 @@
(cond
[(module-declared? mod #t)
(unless quiet?
(printf "running ~s:\n" `(submod ,(if (absolute-path? p)
`(file ,(path->string p))
(path->string p))
,submodule)))
(printf "raco test ~s:\n" `(submod ,(if (absolute-path? p)
`(file ,(path->string p))
(path->string p))
,submodule)))
(dynamic-require mod 0)]
[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))))
(printf "raco test ~s:\n" (if (absolute-path? p)
`(file ,(path->string p))
(path->string p))))
(dynamic-require p 0)))]
[(not (file-exists? p))
(error 'test "given path ~e does not exist" p)])]))