csc/assert-test.csc


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

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