(module test-connection mzscheme (require (lib "etc.ss")) (define (file s) `(file ,(path->string (build-path (this-expression-source-directory) s)))) (with-handlers ([exn:fail? (lambda (e) (dynamic-require (file "test-connection-mzscheme.scm") #f))]) (dynamic-require (file "test-connection-mred.scm") #f)) )