[Chicken-janitors] #1358: (test-exit) returns 0 code for 'error in group outside of tests'

[Chicken Trac]

#1358: (test-exit) returns 0 code for 'error in group outside of tests'
------------------------+--------------------------------
 Reporter:  caolan      |                 Owner:  ashinn
     Type:  defect      |                Status:  new
 Priority:  major       |             Milestone:  someday
Component:  extensions  |               Version:  4.12.0
 Keywords:              |  Estimated difficulty:
------------------------+--------------------------------
 I'd expect the example below to exit with code 1, instead it exits with
 code 0:

 {{{
 (use test)

 (test-group "A"
   (abort "error"))

 (test-group "B"
   (test-assert #t))

 (test-exit)
 }}}

 {{{
 $ csi -s run.scm

 Warning: error in group outside of tests

 Error: error
 1 test completed in 0.0 seconds.
 1 error (100%).
 0 out of 1 (0%) tests passed.
 -- done testing A
 ------------------------------------------------------------


 -- testing B
 -----------------------------------------------------------------
 #t ................................................................... [
 PASS]
 1 test completed in 0.0 seconds.
 1 out of 1 (100%) test passed.
 -- done testing B
 ------------------------------------------------------------

 $ echo $?
 0
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1358>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.