(module test mzscheme

  (require "../private/require.ss")
  (require-contracts)
  (require-schemeunit)
  
  (require "test-set.ss"
           "test-table.ss"
           "test-bag.ss")

  (provide/contract
   [test-galore test-suite?]
   [test/gui (test-suite? . -> . any)]
   [test/text (test-suite? . -> . any)])

  (define test-galore
    (make-test-suite
     "Datastructures Galore"
     test-set
     test-table
     test-bag))

  (define (test/gui suite)
    ((dynamic-require
      '(planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 1 (= 2)))
      'test/graphical-ui)
     suite))

  (define (test/text suite)
    ((dynamic-require
      '(planet "text-ui.ss" ("schematics" "schemeunit.plt" 1 (= 2)))
      'test/text-ui)
     suite))

  )