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

raco test: improve error for a bad config submodule

Browse Source 
Closes #1488
This commit is contained in:
Matthew Flatt 2021-05-15 09:10:19 -06:00
parent 528f34433c
commit ed1d9450c0
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -345,7 +345,19 @@
(or (cond (or (cond
[(not try-config?) #f] [(not try-config?) #f]
[(module-declared? (add-submod p 'config) #t) [(module-declared? (add-submod p 'config) #t)
(dynamic-require (add-submod p 'config) '#%info-lookup)] (define submod (add-submod p 'config))
(dynamic-require submod
'#%info-lookup
(lambda ()
(error test-exe-name
(format
(string-append
"cannot extract information from a `config` submodule;\n"
" the submodule should use the `info` module language\n"
" submodule: ~.s\n"
" current directory: ~a")
(normalize-module-path submod)
(current-directory)))))]
[else #f]) [else #f])
(lambda (what get-default) (get-default)))) (lambda (what get-default) (get-default))))
(dynamic-require-elsewhere (dynamic-require-elsewhere