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

Support -q flag for individual pkg tests.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-10-14 09:39:38 -04:00
parent a3142ac257
commit 297fb75009
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test/tests/pkg/util.rkt
View File

@ -168,7 +168,14 @@
e ...)) e ...))
(provide run-pkg-tests) (provide run-pkg-tests)
(module+ main (module+ main
(run-pkg-tests* run-pkg-tests)))))])) (require racket/cmdline)
(define verb? #t)
(command-line
#:once-each
["-q" "run quietly" (set! verb? #f)]
#:args () (void))
(parameterize ([verbose? verb?])
(run-pkg-tests* run-pkg-tests))))))]))
(define (run-pkg-tests* t) (define (run-pkg-tests* t)
(putenv "PLT_PKG_NOSETUP" "y") (putenv "PLT_PKG_NOSETUP" "y")