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

Ensure that explicit arguments are always run even when ignored by info.rkt

Browse Source 
original commit: 4b1cb56b99
This commit is contained in:
Jay McCarthy 2014-05-30 18:42:31 -06:00
parent 4381f1eb24
commit fce59c1521
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
View File

@ -495,8 +495,9 @@
(or (not check-suffix?)
(regexp-match rx:default-suffixes p)
(get-cmdline p #f))
(begin (check-info p)
(not (omit-path? p))))
(or explicit-arguments?
(begin (check-info p)
(not (omit-path? p)))))
;; The above `omit-path?` loads "info.rkt" files
(define norm-p (normalize-info-path p))
(define args (get-cmdline norm-p))
@ -607,6 +608,7 @@
(require (submod "." paths))
(define collections? #f)
(define explicit-arguments? #f)
(define packages? #f)
(define libraries? #f)
(define check-top-suffix? #f)
@ -885,7 +887,9 @@
"Print a summary table"
(set! table? #t)]
#:args file-or-directory
(begin (unless (= 1 (length file-or-directory))
(begin (set! explicit-arguments?
(not (or collections? libraries? packages? check-top-suffix?)))
(unless (= 1 (length file-or-directory))
(set! single-file? #f))
(define sum
;; The #:sema argument everywhre makes tests start