diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-24 20:49:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-24 20:49:35 +0200 |
commit | 0efe3b94a147e0374c2ebbe9c347a04d0e7f01c1 (patch) | |
tree | 5496c937205a0150345c9187ff836007a7e4ce5a | |
parent | Fix spelling of 'definitions'. (diff) | |
download | calp-0efe3b94a147e0374c2ebbe9c347a04d0e7f01c1.tar.gz calp-0efe3b94a147e0374c2ebbe9c347a04d0e7f01c1.tar.xz |
Fail loudly if test doesn't end with coverage declaration.
-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 |