[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-janitors] #1358: (test-exit) returns 0 code for 'error in g
From: |
Chicken Trac |
Subject: |
Re: [Chicken-janitors] #1358: (test-exit) returns 0 code for 'error in group outside of tests' |
Date: |
Tue, 04 Apr 2017 13:12:56 -0000 |
#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
Resolution: | Keywords:
Estimated difficulty: |
-----------------------------------+---------------------
Comment (by caolan):
And here is my suggested fix:
{{{
--- test/test.scm 2017-04-04 14:11:51.645769430 +0100
+++ test-edit/test.scm 2017-04-04 14:10:56.045335979 +0100
@@ -88,6 +88,7 @@
(e ()
(warning "error in group outside of tests")
(print-error-message e)
+ (test-failure-count (+ 1 (test-failure-count)))
(test-group-inc! (current-test-group) 'count)
(test-group-inc! (current-test-group) 'ERROR)))
(test-end name)
}}}
--
Ticket URL: <https://bugs.call-cc.org/ticket/1358#comment:1>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.