(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))
  
  )