lib/csc/assert-test.csc


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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