Test output for clojurian [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null
-- testing ------------------------------------------------------------------
-- testing clojurian-syntax ----------------------------------------------
(doto (make-vector 2) (vector-set! 0 1) (vector-set! 1 2)) ....... [ PASS]
(doto 'foo) ...................................................... [ PASS]
2 tests completed in 0.001 seconds.
2 out of 2 (100%) tests passed.
-- done testing clojurian-syntax -----------------------------------------
-- testing thrush --------------------------------------------------------
(-> 99 (/ 11) (/ 9)) ............................................. [ PASS]
(->* (values 1 2) (list 3) (append '(4))) ........................ [ PASS]
(-> 10 (- 3)) .................................................... [ PASS]
(->> 10 (- 3)) ................................................... [ PASS]
(->> 1 (+ 2) (* 3)) .............................................. [ PASS]
(->> '(1 2 3) (map add1) (fold + 0)) ............................. [ PASS]
(->>* (values '(foo bar) '(100 200)) (map cons)) ................. [ PASS]
7 tests completed in 0.001 seconds.
7 out of 7 (100%) tests passed.
-- done testing thrush ---------------------------------------------------
-- testing if-let & if-let* ----------------------------------------------
(if-let (x 1) (+ x x) 9) ......................................... [ PASS]
(if-let (x #f) (+ x x) 9) ........................................ [ PASS]
(if-let* ((foo 3) (bar (* foo 2))) (list foo bar) 'wrong) ........ [ PASS]
(if-let* ((foo #f) (bar (* foo 2))) (list foo bar) 'wrong) ....... [ PASS]
(if-let (x #t) #f 'wrong) ........................................ [ PASS]
(if-let* ((x #t)) #f 'wrong) ..................................... [ PASS]
6 tests completed in 0.002 seconds.
6 out of 6 (100%) tests passed.
-- done testing if-let & if-let* -----------------------------------------
-- testing atom ----------------------------------------------------------
(not (atom-compare-and-set! a 1 2)) .............................. [ PASS]
(atom-value a) ................................................... [ PASS]
(atom-value a) ................................................... [ PASS]
(atom-value counter) ............................................. [ PASS]
(atom-value foo) ................................................. [ PASS]
5 tests completed in 0.103 seconds.
5 out of 5 (100%) tests passed.
-- done testing atom -----------------------------------------------------
4 subgroups completed in 0.134 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing -------------------------------------------------------------