Test output for lazy-seq [ok]

• Report summary
• Installation report
• Test report
• Dependencies graphs
• Reverse dependencies graphs

Testing time: 0s

/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null

-- 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 0.0 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 0.0 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 0.001 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.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: 7... ... [ PASS]
2 tests completed in 0.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.001 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 0.0 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.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 0.0 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.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.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.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.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.001 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.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.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 0.0 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.0 seconds.
2 out of 2 (100%) tests passed.
-- done testing lazy-cycle ---------------------------------------------------