(module base mzscheme
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
           ;(all-except (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)) display-exn)
           (planet "debug.ss" ("untyped" "unlib.plt" 2))
           (planet "exn.ss" ("untyped" "unlib.plt" 2)))
  
  (require (only (file "text-ui.ss") test/text-ui))

  ; Variables ------------------------------------
  
  ;; exn:delirium : (struct string continuation-marks)
  ;; exn:fail:delirium : (struct string continuation-marks)
  (define-struct (exn:delirium exn) () #f)
  (define-struct (exn:fail:delirium exn:fail) () #f)
  
  ;; exn:delirium:browser : (struct string continuation-marks string)
  ;; exn:fail:delirium:browser : (struct string continuation-marks string)
  (define-struct (exn:delirium:browser exn:delirium) (command) #f)
  (define-struct (exn:fail:delirium:browser exn:fail:delirium) (command) #f)
  
  ; Provide statements ---------------------------
  
  (provide (all-from (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
           (all-from (planet "debug.ss" ("untyped" "unlib.plt" 2)))
           (all-from (planet "exn.ss" ("untyped" "unlib.plt" 2))))
  
  (provide (all-from (planet "debug.ss" ("untyped" "unlib.plt" 2)))
           (all-from (planet "exn.ss" ("untyped" "unlib.plt" 2))))
  
  (provide (rename test/text-ui test/text-ui/pause-on-fail))

  (provide (all-defined))

  )