(import (scheme base)
        (only (csc testing)
          assert-raises
          test)
        (csc assert))


(test assert-raises
  (assert-raises error-object?
    (assert #f)))


(test assert-ok
  (assert #t))