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

racket/slice, expand raco test, remove begin-for-testing

Browse Source 
original commit: f8325776cf
This commit is contained in:
Jay McCarthy 2012-03-09 19:51:42 -07:00
parent 9741ae6d98
commit 98fa97ae26
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,25 +4,41 @@
racket/path
raco/command-name)
(define submodule 'test)
(define run-anyways? #f)
(define do-test
(match-lambda
[(? string? s)
(do-test (string->path s))]
[(? path? p)
(define ps (path->string p))
(cond
[(directory-exists? p)
(for-each
(λ (dp)
(do-test (build-path p dp)))
(directory-list p))]
[(file-exists? p)
(define mod `(submod (file ,(path->string p)) test))
(when (module-declared? mod #t)
(dynamic-require mod #f))]
[else
[(and (file-exists? p)
(regexp-match #rx"\\.rkt$" ps))
(define fmod `(file ,ps))
(define mod `(submod ,fmod ,submodule))
(cond
[(module-declared? mod #t)
(dynamic-require mod #f)]
[(and run-anyways? (module-declared? fmod #t))
(dynamic-require fmod #f)])]
[(not (file-exists? p))
(error 'test "Given path ~e does not exist" p)])]))
(command-line
#:program (short-program+command-name)
#:once-each
[("--submodule" "-s") submodule-str
"Determines which submodule to load"
(set! submodule (string->symbol submodule-str))]
[("--run-if-absent" "-r")
"When set, raco test will require the default module if the given submodule is not present."
(set! run-anyways? #t)]
#:args files+directories
(for-each do-test files+directories))