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