(define-library (csc assert-test)
  (import (scheme base)
          (only (csc testing)
            assert-raises
            test)
          (csc assert))
  (begin
    (test assert-raises
      (assert-raises error-object?
        (assert #f)))
    
    
    (test assert-ok
      (assert #t))))