diff options
-rwxr-xr-x | testrunner.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/testrunner.scm b/testrunner.scm index 014dd096..48ebc3df 100755 --- a/testrunner.scm +++ b/testrunner.scm @@ -162,6 +162,11 @@ exec "$GUILE" --debug --no-auto-compile -e main -s "$0" "$@" (enqueue! (format-test-runner-crash-message args) error-queue) (values #f '())))) + (catch 'wrong-type-arg + (lambda () (typecheck module-names (list-of (list-of symbol?)))) + (lambda (_ __ fmt args ___) + (enqueue! (red (format #f "File doesn't end with a module list: ~s" entry)) + error-queue))) (define tested-files (map module->source-file module-names)) (test-end) (if coverage |