srfi-214

 1(include "../implementation/tests.scm")
 2
 3;; Ensure that `chicken-install -test` exits with a non-zero
 4;; exit status in case there are failed tests.
 5(let ((runner (test-runner-get)))
 6  (when (or
 7          (not (zero? (test-runner-fail-count runner)))
 8          (not (zero? (test-runner-xpass-count runner)))
 9          (not (zero? (test-runner-xfail-count runner))))
10    (exit 1)))