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

change printouts from raco test to be slightly more informative

Browse Source 
original commit: 44e91ea961
This commit is contained in:
Robby Findler 2013-02-03 15:31:09 -06:00
parent 81b3b34895
commit 80dd8d58f7
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)])]))