(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))))) )) )