#lang scheme (require (planet cce/scheme:4:1/planet) (planet schematics/schemeunit) (this-package-in main)) (define/provide-test-suite ra-list-uncontracted-tests (let-syntax ((check-fail (syntax-rules () [(check-fail e) 'ignore]))) (include (file "ra-list-common.source"))))