diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-13 11:06:57 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-13 11:17:34 +0100 |
commit | 00a66eca0f32fcf585d2c21375641020e877e3ea (patch) | |
tree | c2aceeb5047bf46e03726e1c5e8378cf86a4df63 /testrunner.scm | |
parent | Fix sxml namespaced util. (diff) | |
download | calp-sxml-work.tar.gz calp-sxml-work.tar.xz |
Update things depending on namespaced sxml.sxml-work
Update all code to emit correctly formed namespaced sxml objects,
instead of the old list based approach.
Also introduces a number of typechecks which in semi-related parts of
the code.
Note that the webdav-server test is currently broken.
Diffstat (limited to '')
-rwxr-xr-x | testrunner.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/testrunner.scm b/testrunner.scm index 8abea1e2..a757fdee 100755 --- a/testrunner.scm +++ b/testrunner.scm @@ -183,7 +183,12 @@ exec "$GUILE" --debug --no-auto-compile -e main -s "$0" "$@" (lambda args (enqueue! (format-test-runner-crash-message args) error-queue) - (values #f '())))) + (values #f '())) + (lambda _ + ;; TODO make backtrace configurable + ;; TODO backtrace should be placed AFTER the error + (enqueue! (with-output-to-string (lambda () (backtrace))) error-queue) + ))) (catch 'wrong-type-arg (lambda () (typecheck module-names (list-of (list-of symbol?)))) (lambda (_ __ fmt args ___) |