Support -q flag for individual pkg tests.

2015-10-14 09:39:38 -04:00 · 2015-10-14 09:39:38 -04:00 · 297fb75009
commit 297fb75009
parent a3142ac257
1 changed files with 8 additions and 1 deletions
--- a/pkgs/racket-test/tests/pkg/util.rkt
+++ b/pkgs/racket-test/tests/pkg/util.rkt
@ -168,7 +168,14 @@
              e ...))
           (provide run-pkg-tests)
           (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)
  (putenv "PLT_PKG_NOSETUP" "y")