Test output for clojurian [ok]

Testing time: 1s

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

-- testing  ------------------------------------------------------------------

    -- testing clojurian-syntax ----------------------------------------------
    (doto (make-vector 2) (vector-set! 0 1) (vector-set! 1 2)) ....... [ PASS]
    (doto 'foo) ...................................................... [ PASS]
    2 tests completed in 1/1000 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]
    (as-> 3 x) ....................................................... [ PASS]
    (as-> 1 x (+ x 3) (/ x 2)) ....................................... [ PASS]
    (-> 10 (* 2) (as-> state (/ state 4))) ........................... [ PASS]
    (-> 10 (- 3)) .................................................... [ PASS]
    (->> 10 (- 3)) ................................................... [ PASS]
    (->> 1 (+ 2) (* 3)) .............................................. [ PASS]
    (-> 1 -) ......................................................... [ PASS]
    (-> 14 (+ 2) sqrt (- 2) inexact->exact) .......................... [ PASS]
    (->* (values 1 2) list) .......................................... [ PASS]
    (->> '(1 2 3) (map add1) (fold + 0)) ............................. [ PASS]
    (->> 1 -) ........................................................ [ PASS]
    (->>* (values '(foo bar) '(100 200)) (map cons)) ................. [ PASS]
    (->>* (values 'a 'b) list (map symbol->string)) .................. [ PASS]
    (and-> 1 (+ 2) (* 3)) ............................................ [ PASS]
    (and-> 1 -) ...................................................... [ PASS]
    (and-> #f not) ................................................... [ PASS]
    (and-> (assq 'x '((x . 1))) cdr add1) ............................ [ PASS]
    (and-> (assq 'x '((y . 1))) cdr add1) ............................ [ PASS]
    20 tests completed in 1/500 seconds.
    20 out of 20 (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 1/1000 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 109/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing atom -----------------------------------------------------

4 subgroups completed in 71/250 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing  -------------------------------------------------------------