#lang racket (require rackunit rackunit/text-ui "tests/data.rkt") (define-syntax-rule (def/run-test-suite body0 body ...) (begin (define __FILE__ (syntax-source (quote-syntax body0))) (define basename (cadr (regexp-match #rx"/?([^/]+?)$" __FILE__))) (display basename) (display " ... ") (flush-output) (void (run-tests (test-suite basename body0 body ...) 'normal)))) (provide (all-from-out rackunit) (all-from-out rackunit/text-ui) (all-from-out "tests/data.rkt") def/run-test-suite)