tests/utils.scm


1
2
3
4
5
6
7
8
9

(define-module (tests utils)
  #:use-module (srfi srfi-64)
  #:export (with-tests))

(define-syntax-rule (with-tests name body ...)
  (begin
    (test-begin name)
    body ...
    (exit (zero? (test-runner-fail-count (test-end))))))