tests/testing-common.scm.in

   1 (use-modules (ice-9 match))
   2 (use-modules (oop goops))
   3 (use-modules (srfi srfi-1))
   4 (use-modules (srfi srfi-26))
   5 (use-modules (srfi srfi-64))
   6 (use-modules (system ffi))
   7 (use-modules (system foreign))
   8 (use-modules (system foreign))
   9
  10 (define-syntax-rule (with-srfi-64-test stmt stmt* ...)
  11   (begin
  12     (define *exit-status* 0)
  13     (define *test-name*
  14       (format #f "tests/~a"
  15               (basename (assq-ref (current-source-location) 'filename))))
  16     (test-begin *test-name*)
  17     stmt stmt* ...
  18     (unless (zero? (+ (test-runner-fail-count (test-runner-current))
  19                       (test-runner-xpass-count (test-runner-current))))
  20       (set! *exit-status* 1))
  21     (test-end)
  22     (unless (zero? *exit-status*)
  23       (exit *exit-status*))))