From 00a66eca0f32fcf585d2c21375641020e877e3ea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 13 Dec 2023 11:06:57 +0100 Subject: Update things depending on namespaced sxml. 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. --- testrunner.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'testrunner.scm') 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 ___) -- cgit v1.2.3