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

     (test-case
      "Expected names are defined"
      (list
       (bug-case "booya!" (= 1 1))
       test/si-text-ui
       
       with-database
       read-samples
       
       sample?
       sample-name
       sample-successes
       sample-failures
       sample-errors
       sample-bugs))
     ))
  )