tests/unit-tests.scm


1
2
3
4
5
6
7
8
9
10

(use-modules (curth0))

(define (run-tests)
  (let ((fns (list (@@ (curth0) unit-tests))))
    (for-each (lambda (fn)
                (when (not (= 0 (fn)))
                  (exit 1)))
              fns)))

(run-tests)