#lang scheme (require (planet cce/scheme:6:3/planet) (planet schematics/schemeunit) (this-package-in contract)) (define/provide-test-suite ra-list-contracted-tests (let-syntax ((check-fail (syntax-rules () [(check-fail e) (check-exn exn:fail:contract? (lambda () e))]))) (include (file "ra-list-common.source"))))