From d128b2d1f213f4df1e524a059603d8b739debdd5 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 19 Mar 2021 09:47:34 -0400 Subject: tests: Fix test-end* --- tests/utils.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tests/utils.scm b/tests/utils.scm index 9f10784..4921682 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -19,4 +19,6 @@ #:export (test-end*)) (define (test-end* name) - (exit (= (test-runner-fail-count (test-end name)) 0))) + (let ((runner (test-runner-current))) + (test-end name) + (exit (= (test-runner-fail-count runner) 0)))) -- cgit v1.2.3