summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/utils.scm4
1 files changed, 3 insertions, 1 deletions
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))))