raco test: continue when checking for submodules fails

This commit is contained in:
Matthew Flatt 2014-06-03 09:55:48 +01:00
parent 6ee2079d8a
commit 94a5b02886

View File

@ -572,9 +572,19 @@
(cond (cond
[(and did-one? first-avail?) [(and did-one? first-avail?)
#f] #f]
[(module-declared? mod #t) [(with-handlers ([exn:fail?
(set! did-one? #t) (lambda (exn)
(test-this-module mod #t)] ;; If there's an error, then try running
;; this submodule to let the error show.
;; Log a warning, just in case.
(log-warning "submodule load failed: ~s"
(exn-message exn))
'error)])
(and (module-declared? mod #t)
'ok))
=> (lambda (mode)
(set! did-one? #t)
(test-this-module mod (eq? mode 'ok)))]
[else [else
(set! something-wasnt-declared? #t) (set! something-wasnt-declared? #t)
#f])) #f]))