(module tests mzscheme
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 1)))
  (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 1)))
  (require "datatype.ss")
  (require "hierarchy.ss")
  (require "class.ss")
  (require "struct.ss")

  (define all-tests
    (make-test-suite
     "all struct.plt tests"
     test-hierarchy
     test-datatype
     test-class
     test-struct))

  (test/text-ui all-tests)

  (provide all-tests))