Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

test-exit should return non-zero for failures outside test* forms

Browse source
This commit is contained in:
Alex Shinn 2017-04-04 22:54:00 +09:00
parent ceb2345b68
commit 22b39432b4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/test.scm
View file

@ -176,7 +176,8 @@
(warning "error in group outside of tests") (warning "error in group outside of tests")
(print-exception exn (current-error-port)) (print-exception exn (current-error-port))
(test-group-inc! (current-test-group) 'count) (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 ...) body ...)
(test-end name) (test-end name)
(current-test-group old-group))))) (current-test-group old-group)))))