Hi,
On Nov 4, 2007 12:02 AM, Peter Busser <[EMAIL PROTECTED]> wrote:
>
> I'm writing a number of test cases using the test egg. I would like to use
> the test program for automated testing. Is it possible to know that one of
> the tests failed, so I can exit the program with an error value?
I was thinking of adding something like this. In the meantime
you can hack it with something like this:
(define (test-group-ref group key default)
(cond ((assq key (cdr (current-test-group))) => cdr)
(else default)))
(define all-tests-passed?
(zero? (+ (or (test-group-ref (current-test-group) 'FAIL #f) 0)
(or (test-group-ref (current-test-group) 'ERROR #f) 0))))
(test-end)
(exit (if all-tests-passed? 0 1))
--
Alex
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
