diff options
| -rw-r--r-- | tests/utils.scm | 4 |
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)))) |