#lang scheme/base (require "test-unit.ss") ;(require "thing-unit.ss") (require scheme/unit) ;(define-values/invoke-unit/infer thing@) (define-values/invoke-unit/infer test@) (test)