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

adjust raco test so it test the command-line

Browse Source 
arguments to the empty vector before running anything
This commit is contained in:
Robby Findler 2013-02-04 20:37:40 -06:00
parent f749ab1538
commit 2b7c6e32a9
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,6 +23,7 @@
[(and (file-exists? p) [(and (file-exists? p)
(or (not check-suffix?) (or (not check-suffix?)
(regexp-match #rx#"\\.rkt$" (path->bytes p)))) (regexp-match #rx#"\\.rkt$" (path->bytes p))))
(parameterize ([current-command-line-arguments '#()])
(define something-wasnt-declared? #f) (define something-wasnt-declared? #f)
(for ([submodule (in-list (if (null? submodules) (for ([submodule (in-list (if (null? submodules)
'(test) '(test)
@ -43,7 +44,7 @@
(printf "running ~s:\n" (if (absolute-path? p) (printf "running ~s:\n" (if (absolute-path? p)
`(file ,(path->string p)) `(file ,(path->string p))
(path->string p)))) (path->string p))))
(dynamic-require p #f))] (dynamic-require p #f)))]
[(not (file-exists? p)) [(not (file-exists? p))
(error 'test "given path ~e does not exist" p)])])) (error 'test "given path ~e does not exist" p)])]))