From 22b39432b46da6c05f74708cb6c5f0a5e8fdef2f Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 4 Apr 2017 22:54:00 +0900 Subject: [PATCH] test-exit should return non-zero for failures outside test* forms --- lib/chibi/test.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index 79ddc3ab..e868c3bd 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -176,7 +176,8 @@ (warning "error in group outside of tests") (print-exception exn (current-error-port)) (test-group-inc! (current-test-group) 'count) - (test-group-inc! (current-test-group) 'ERROR))) + (test-group-inc! (current-test-group) 'ERROR) + (test-failure-count (+ 1 (test-failure-count))))) body ...) (test-end name) (current-test-group old-group)))))