(module test-test mzscheme
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
  (require "test.ss")
  
  (provide test-tests)
  
  (define test-tests
    (test-suite
     "All tests for test"

     (test-case
      "bug-case runs just as test-case"
      (check-pred test-success?
                  (car (run-test
                        (bug-case "success" (check = 0 0)))))
      (check-pred test-failure?
                  (car (run-test
                        (bug-case "failure" (check = 1 0)))))
      (check-pred test-error?
                  (car (run-test
                        (bug-case "error" (error "Oh no!"))))))

     ))
  )