(module si-text-ui-test mzscheme
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
           (planet "io.ss" ("dherman" "io.plt" 1)))
  (require "si-text-ui.ss"
           "test.ss"
           "base.ss"
           "database.ss")
  
  (provide si-text-ui-tests)
  
  (define si-text-ui-tests
    (test-suite
     "All tests for si-text-ui"

     (test-case
      "bug-cases are recorded in the database"
      (with-output-to-string
        (test/si-text-ui
         'bug-case-test
         (bug-case "test" (= 1 1))))
      (with-database
       "bug-case-test.sidb"
       (lambda (db)
         (after
          (let ([samples (read-samples db)])
            (check = (length samples) 1)
            (let ([sample (car samples)])
              (check = (sample-bugs sample) 1)
              (check = (sample-errors sample) 0)
              (check = (sample-failures sample) 0)
              (check = (sample-successes sample) 1)))
          (delete-samples! db)))))
     ))
  )