tests/unit.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(use-modules
  ((org euandre packages) #:prefix packages:)
  ((srfi srfi-64) #:prefix t:))


(define test-fns
  (list))

(define (main)
  (t:test-begin "unit")
  (for-each (lambda (fn) (fn)) test-fns)
  (let ((n-fail (t:test-runner-fail-count (t:test-runner-get))))
    (t:test-end)
    (when (not (= 0 n-fail))
      (exit 1))))

(main)