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