(module util-test mzscheme

  (require "test.ss"
           "util.ss")

  (provide util-tests)

  (require/expose "assert-test.ss" (good*))
  
  (define util-tests
    (make-test-suite
     "Util tests"
     (make-test-case
      "good* required from assert-test.ss"
      (begin
        (assert-true (procedure? good*))
        (assert-equal? '(0 1) (procedure-arity good*))
        (assert-true (good*))))

     (make-test-case
      "Test make-test-suite*"
      (let ((result
             (run-test
              (make-test-suite*
               "Test make-test-suite*"
               ("Test 1" (assert = 1 1))
               ("Test 2" (assert = 1 1) (assert = 2 4))))))
        (assert = (length result) 2)
        (assert-true (test-success? (car result)))
        (assert-true (test-failure? (cadr result)))))

     (make-test-case
      "Simple assert-regexp test"
      (assert-regexp-match "a*bba"
                           "aaaaaabba"))

     (make-test-case
      "assert-regexp-match failure"
      (assert-exn
       exn:test:assertion?
       (lambda ()
         (assert-regexp-match* "a+bba" "aaaabbba"))))

     ))
  
  )