(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)