From adbeebabafef096dcd64df5946a219c67bebb6b8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 22 Aug 2015 09:48:05 -0600 Subject: [PATCH] raco test: recognize extensible set of module suffixes Use the new `compiler/module-suffix` library. --- compiler-lib/compiler/commands/test.rkt | 7 ++++--- compiler-lib/info.rkt | 4 ++-- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/compiler-lib/compiler/commands/test.rkt b/compiler-lib/compiler/commands/test.rkt index b0d2f81661..e310a16ed9 100644 --- a/compiler-lib/compiler/commands/test.rkt +++ b/compiler-lib/compiler/commands/test.rkt @@ -16,9 +16,10 @@ pkg/lib pkg/path 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` ;; entry is required in "info.rkt". @@ -557,7 +558,7 @@ (directory-list p) #:sema continue-sema)))] [(and (or (not check-suffix?) - (regexp-match rx:default-suffixes p) + (regexp-match? rx:default-suffixes p) (get-cmdline p #f #:check-info? #t) (include-path? p #:check-info? #t)) (or (not check-suffix?) diff --git a/compiler-lib/info.rkt b/compiler-lib/info.rkt index f83bb4e6cb..4cbd2611a5 100644 --- a/compiler-lib/info.rkt +++ b/compiler-lib/info.rkt @@ -2,7 +2,7 @@ (define collection 'multi) -(define deps '(["base" #:version "6.1.1.8"] +(define deps '(["base" #:version "6.2.900.10"] "scheme-lib" "rackunit-lib" "zo-lib")) @@ -13,4 +13,4 @@ (define pkg-authors '(mflatt)) -(define version "1.3") +(define version "1.4")