scheme-srfi/srfi-tests/aux.sld

(define-library (srfi-tests aux)
  (export define-tests)
  (import
   (scheme base)
   (scheme write)
   (scheme case-lambda)
   (srfi 64))
  (begin
    (define-syntax define-tests
      (syntax-rules ()
        ((_ proc-name suite-name form ...)
         (define proc-name
           (case-lambda
             (() (proc-name (test-runner-create)))
             ((runner)
              (parameterize ((test-runner-current runner))
                (test-begin suite-name)
                form ...
                (test-end suite-name)
                (and (= 0 (test-runner-xpass-count runner))
                     (= 0 (test-runner-fail-count runner))))))))))
    ))