Test output for lazy-seq [ok]

Testing time: 0s

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

-- testing custom lazy-seq ---------------------------------------------------
(lazy-seq->list (lazy-take 3 numbers)) ............................... [ PASS]
(lazy-seq->list (lazy-take 3 numbers)) ............................... [ PASS]
3 .................................................................... [ PASS]
3 tests completed in 1/1000 seconds.
3 out of 3 (100%) tests passed.
-- done testing custom lazy-seq ----------------------------------------------


-- testing lazy-seq-realized? ------------------------------------------------
(not (lazy-seq-realized? even-numbers)) .............................. [ PASS]
(lazy-head even-numbers) ............................................. [ PASS]
(lazy-seq-realized? even-numbers) .................................... [ PASS]
(not (lazy-seq-realized? (lazy-tail even-numbers))) .................. [ PASS]
(lazy-head (lazy-tail even-numbers)) ................................. [ PASS]
5 tests completed in 1/1000 seconds.
5 out of 5 (100%) tests passed.
-- done testing lazy-seq-realized? -------------------------------------------


-- testing list->lazy-seq ----------------------------------------------------
(lazy-seq? seq) ...................................................... [ PASS]
(lazy-seq-realized? seq) ............................................. [ PASS]
(lazy-seq->list seq) ................................................. [ PASS]
(lazy-null? (lazy-tail (lazy-tail seq))) ............................. [ PASS]
(lazy-head (lazy-seq (list->lazy-seq '("ok")))) ...................... [ PASS]
5 tests completed in 1/1000 seconds.
5 out of 5 (100%) tests passed.
-- done testing list->lazy-seq -----------------------------------------------


-- testing lazy-length -------------------------------------------------------
(lazy-length (lazy-numbers #:count 10)) .............................. [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-length --------------------------------------------------


-- testing lazy-map ----------------------------------------------------------
(lazy-seq->list (lazy-take 5 (lazy-map add1 (lazy-numbers)))) ........ [ PASS]
(lazy-seq->list (lazy-take 3 (lazy-map + (lazy-numbers #:start ... ... [ PASS]
2 tests completed in 0 seconds.
2 out of 2 (100%) tests passed.
-- done testing lazy-map -----------------------------------------------------


-- testing lazy-append-map ---------------------------------------------------
(lazy-seq->list (lazy-append-map (compose list->lazy-seq list) ... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-append-map ----------------------------------------------


-- testing lazy-filter -------------------------------------------------------
(lazy-seq->list (lazy-take 5 (lazy-filter (lambda (x) (zero? (m... ... [ PASS]
(lazy-seq->list (lazy-filter (lambda (x) (= x 2)) (lazy-numbers... ... [ PASS]
2 tests completed in 1/1000 seconds.
2 out of 2 (100%) tests passed.
-- done testing lazy-filter --------------------------------------------------


-- testing lazy-ref ----------------------------------------------------------
(lazy-ref 3 (lazy-numbers)) .......................................... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-ref -----------------------------------------------------


-- testing input-port->lazy-seq ----------------------------------------------
(lazy-seq->list (lazy-take 3 (lazy-tail (input-port->lazy-seq (... ... [ PASS]
(lazy-null? (input-port->lazy-seq (open-input-string "") read)) ...... [ PASS]
2 tests completed in 1/1000 seconds.
2 out of 2 (100%) tests passed.
-- done testing input-port->lazy-seq -----------------------------------------


-- testing lazy-each ---------------------------------------------------------
(fold + 0 (iota 5)) .................................................. [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-each ----------------------------------------------------


-- testing lazy-repeat -------------------------------------------------------
(lazy-seq->list (lazy-take 4 (lazy-repeat 'x))) ...................... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-repeat --------------------------------------------------


-- testing lazy-repeatedly ---------------------------------------------------
(lazy-ref 9 (lazy-repeatedly (let ((n 0)) (lambda () (set! n (+... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-repeatedly ----------------------------------------------


-- testing lazy-append -------------------------------------------------------
(lazy-ref 5 (lazy-append (lazy-numbers #:count 2) (lazy-numbers... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-append --------------------------------------------------


-- testing lazy-iterate ------------------------------------------------------
(lazy-seq->list (lazy-take 4 (lazy-iterate (lambda (x) (* x 2))... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-iterate -------------------------------------------------


-- testing lazy-take-while ---------------------------------------------------
(lazy-seq->list (lazy-take-while even? (list->lazy-seq '(2 2 2 ... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-take-while ----------------------------------------------


-- testing lazy-drop-while ---------------------------------------------------
(lazy-seq->list (lazy-drop-while number? (list->lazy-seq '(1 2 ... ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-drop-while ----------------------------------------------


-- testing lazy-reverse ------------------------------------------------------
(lazy-seq->list (lazy-reverse (lazy-seq '()))) ....................... [ PASS]
(lazy-seq->list (lazy-reverse (lazy-numbers #:count 3 #:start 1))) ... [ PASS]
2 tests completed in 1/1000 seconds.
2 out of 2 (100%) tests passed.
-- done testing lazy-reverse -------------------------------------------------


-- testing lazy-cycle --------------------------------------------------------
(lazy-seq->list (lazy-take 6 (lazy-cycle (list->lazy-seq '(1 2)... ... [ PASS]
(lazy-seq->list (lazy-cycle (list->lazy-seq '()))) ................... [ PASS]
2 tests completed in 0 seconds.
2 out of 2 (100%) tests passed.
-- done testing lazy-cycle ---------------------------------------------------


-- testing lazy-fold ---------------------------------------------------------
(lazy-fold + 0 (lazy-numbers #:start 10 #:count 20)) ................. [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-fold ----------------------------------------------------


-- testing lazy-concatenate --------------------------------------------------
(lazy-seq->list (lazy-concatenate (list->lazy-seq (list (list->... ... [ PASS]
1 test completed in 1/1000 seconds.
1 out of 1 (100%) test passed.
-- done testing lazy-concatenate ---------------------------------------------


-- testing lazy-flatten ------------------------------------------------------
nothing to flatten ................................................... [ PASS]
flatten one level deep ............................................... [ PASS]
flatten multiple levels .............................................. [ PASS]
lists are resolved lazily ............................................ [ PASS]
4 tests completed in 1/1000 seconds.
4 out of 4 (100%) tests passed.
-- done testing lazy-flatten -------------------------------------------------


-- testing nested lazy-seq realizations are retained -------------------------
(lazy-seq->list (lazy-take 5 s)) ..................................... [ PASS]
(realized-prefix r) .................................................. [ PASS]
(realized-prefix q) .................................................. [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing nested lazy-seq realizations are retained --------------------