Use the knots backtrace printer for tests
All checks were successful
/ test (push) Successful in 11s
All checks were successful
/ test (push) Successful in 11s
This commit is contained in:
parent
d8f64399cd
commit
6f6d57b189
1 changed files with 4 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue