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

raco test: recognize extensible set of module suffixes

Browse Source 
Use the new `compiler/module-suffix` library.
This commit is contained in:
Matthew Flatt 2015-08-22 09:48:05 -06:00
parent 5ef6a2662d
commit adbeebabaf
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler-lib/compiler/commands/test.rkt
View File

@ -16,9 +16,10 @@
pkg/lib pkg/lib
pkg/path pkg/path
setup/collects setup/collects
setup/getinfo) setup/getinfo
compiler/module-suffix)
(define rx:default-suffixes #rx#"\\.(?:rkt|scrbl)$") (define rx:default-suffixes (get-module-suffix-regexp))
;; For any other file suffix, a `test-command-line-arguments` ;; For any other file suffix, a `test-command-line-arguments`
;; entry is required in "info.rkt". ;; entry is required in "info.rkt".
@ -557,7 +558,7 @@
(directory-list p) (directory-list p)
#:sema continue-sema)))] #:sema continue-sema)))]
[(and (or (not check-suffix?) [(and (or (not check-suffix?)
(regexp-match rx:default-suffixes p) (regexp-match? rx:default-suffixes p)
(get-cmdline p #f #:check-info? #t) (get-cmdline p #f #:check-info? #t)
(include-path? p #:check-info? #t)) (include-path? p #:check-info? #t))
(or (not check-suffix?) (or (not check-suffix?)

4
compiler-lib/info.rkt
View File

@ -2,7 +2,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '(["base" #:version "6.1.1.8"] (define deps '(["base" #:version "6.2.900.10"]
"scheme-lib" "scheme-lib"
"rackunit-lib" "rackunit-lib"
"zo-lib")) "zo-lib"))
@ -13,4 +13,4 @@
(define pkg-authors '(mflatt)) (define pkg-authors '(mflatt))
(define version "1.3") (define version "1.4")