Test output for checks [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

Testing CHECKS ...
----------------------------
(assert* 'x (integer? x))
... passed in (checks?)
(assert* 'x (integer? x) (odd? x))
... passed in (checks?)
(not (condition-case (assert* 'x (integer? x) (even? x)) ((exn assert) #f)))
... passed in (checks?)
(= (>> x) 5)
... passed in (checks?)
(= (<< x) 5)
... passed in (checks?)
(= (>> x integer? odd?) 5)
... passed in (checks?)
(= (>>% 'x x integer? odd?) 5)
... passed in (checks?)
(= (<< x integer? odd?) 5)
... passed in (checks?)
(= (<<% 'x x integer? odd?) 5)
... passed in (checks?)
(= (<<< 'loc x integer? odd?) 5)
... passed in (checks?)
(= (>>> 'loc x integer? odd?) 5)
... passed in (checks?)
(= (<<<% 'loc 'x x integer? odd?) 5)
... passed in (checks?)
(= (>>>% 'loc 'x x integer? odd?) 5)
... passed in (checks?)
(not (condition-case (<<% 'x x integer? even?) ((exn argument) #f)))
... passed in (checks?)
(not (condition-case (<<<% 'loc 'x x integer? even?) ((exn argument) #f)))
... passed in (checks?)
(not (condition-case (>> x integer? even?) ((exn result) #f)))
... passed in (checks?)
(not (<< ((lambda () #f)) boolean?))
... passed in (checks?)
(= ((named-lambda (! n) (if (zero? n) 1 (* n (! (- n 1))))) 5) 120)
... passed in (checks?)

Results of CHECKS
----------------------------
All tests passed