Use the knots backtrace printer for tests
All checks were successful
/ test (push) Successful in 11s

This commit is contained in:
Christopher Baines 2025-06-27 00:16:41 +02:00
parent d8f64399cd
commit 6f6d57b189

View file

@ -1,6 +1,7 @@
(define-module (tests)
#:use-module (ice-9 exceptions)
#:use-module (fibers)
#:use-module (knots)
#:export (run-fibers-for-tests
assert-no-heap-growth))
@ -15,9 +16,10 @@
(simple-format #t "running ~A\n" thunk)
(with-exception-handler
(lambda (exn)
(backtrace)
(print-backtrace-and-exception/knots exn)
(raise-exception exn))
thunk)
(lambda ()
(start-stack #t (thunk))))
#t)
#:unwind? #t))
#:hz 0