(module util-test mzscheme
(require "test.ss"
"util.ss")
(require "info.ss")
(provide util-tests)
(require/expose "check-test.ss" (good*))
(define util-tests
(test-suite
"Util tests"
(test-case
"good* required from check-test.ss"
(begin
(check-true (procedure? good*))
(check-equal? '(0 1) (procedure-arity good*))
(check-true (good*))))
(test-case
"Test test-suite*"
(let ((result
(run-test
(test-suite*
"Test test-suite*"
("Test 1" (check = 1 1))
("Test 2" (check = 1 1) (check = 2 4))))))
(check = (length result) 2)
(check-true (test-success? (car result)))
(check-true (test-failure? (cadr result)))))
(test-case
"Simple check-regexp test"
(check-regexp-match "a*bba"
"aaaaaabba"))
(test-case
"check-regexp-match failure"
(check-exn
exn:test:check?
(lambda ()
(check-regexp-match* "a+bba" "aaaabbba"))))
))
)