diff --git a/pkgs/racket-test/tests/pkg/util.rkt b/pkgs/racket-test/tests/pkg/util.rkt index 944b274b32..918b6cb754 100644 --- 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")