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

Don't include directory when using default suffixes

Browse Source
This commit is contained in:
Jay McCarthy 2015-11-30 08:29:54 -05:00
parent 02de19eb6f
commit 091db74ab6
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -565,7 +565,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 (file-name-from-path 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?)

2
compiler-test/tests/compiler/test/d/.ignored.rkt Normal file
View File

@ -0,0 +1,2 @@
#lang racket/base
(error 'ignored "I shouldn't run!")