Test output for srfi-121 [ok]

Testing time: 0s

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

-- testing generators --------------------------------------------------------

    -- testing generators/constructors ---------------------------------------
    (generator->list (generator)) .................................... [ PASS]
    (generator->list (generator 1 2 3)) .............................. [ PASS]
    (generator->list (make-iota-generator 3 8)) ...................... [ PASS]
    (generator->list (make-iota-generator 3 8 2)) .................... [ PASS]
    (generator->list (make-range-generator 3) 4) ..................... [ PASS]
    (generator->list (make-range-generator 3 8)) ..................... [ PASS]
    (generator->list (make-range-generator 3 8 2)) ................... [ PASS]
    (generator->list g) .............................................. [ PASS]
    (generator->list (list->generator '(1 2 3 4 5))) ................. [ PASS]
    (generator->list (vector->generator '#(1 2 3 4 5))) .............. [ PASS]
    (generator->list (reverse-vector->generator '#(1 2 3 4 5))) ...... [ PASS]
    (generator->list (string->generator "abcde")) .................... [ PASS]
    (generator->list (bytevector->generator (u8vector 10 20 30))) .... [ PASS]
    (generator->list (make-for-each-generator for-each-digit 12345)) . [ PASS]
    (generator->list (make-unfold-generator (lambda (s) (> s 5)) (l...  [ PASS]
    15 tests completed in 0.002 seconds.
    15 out of 15 (100%) tests passed.
    -- done testing generators/constructors ----------------------------------


    -- testing generators/operators ------------------------------------------
    (generator->list (gcons* 'a 'b (make-range-generator 0 2))) ...... [ PASS]
    (generator->list (gappend (make-range-generator 0 3) (make-rang...  [ PASS]
    (generator->list (gappend)) ...................................... [ PASS]
    (generator->list (gcombine proc 10 g1 g2)) ....................... [ PASS]
    (generator->list (gfilter odd? (make-range-generator 1 11))) ..... [ PASS]
    (generator->list (gremove odd? (make-range-generator 1 11))) ..... [ PASS]
    (generator->list (gtake g 3)) .................................... [ PASS]
    (generator->list g) .............................................. [ PASS]
    (generator->list (gtake (make-range-generator 1 3) 3)) ........... [ PASS]
    (generator->list (gtake (make-range-generator 1 3) 3 0)) ......... [ PASS]
    (generator->list (gdrop (make-range-generator 1 5) 2)) ........... [ PASS]
    (generator->list (gtake-while small? g)) ......................... [ PASS]
    (generator->list (gdrop-while small? g)) ......................... [ PASS]
    (generator->list (gdrop-while (lambda args #t) (generator 1 2 3)))  [ PASS]
    (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2))) .......... [ PASS]
    (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2) =)) ........ [ PASS]
    (generator->list (gindex (list->generator '(a b c d e f)) (list...  [ PASS]
    (generator->list (gselect (list->generator '(a b c d e f)) (lis...  [ PASS]
    (generator->list (gdelete-neighbor-dups (generator 1 1 2 3 3 3)...  [ PASS]
    (generator->list (gdelete-neighbor-dups (generator 1 2 3) (lamb...  [ PASS]
    20 tests completed in 0.024 seconds.
    20 out of 20 (100%) tests passed.
    -- done testing generators/operators -------------------------------------


    -- testing generators/consumers ------------------------------------------
    (generator->list (generator 1 2 3 4 5) 3) ........................ [ PASS]
    (generator->reverse-list (generator 1 2 3 4 5)) .................. [ PASS]
    (generator->vector (generator 1 2 3 4 5)) ........................ [ PASS]
    (generator->vector (generator 1 2 3 4 5) 3) ...................... [ PASS]
    (generator->string (generator #\a #\b #\c)) ...................... [ PASS]
    (with-input-from-string "a b c d e" (lambda () (generator-fold ...  [ PASS]
    n ................................................................ [ PASS]
    (generator-find (lambda (x) (> x 2)) (make-range-generator 1 5)) . [ PASS]
    (generator-count odd? (make-range-generator 1 5)) ................ [ PASS]
    (generator-any odd? g) ........................................... [ PASS]
    (generator->list g) .............................................. [ PASS]
    (generator-every odd? g) ......................................... [ PASS]
    (generator->list g) .............................................. [ PASS]
    (generator-unfold (make-for-each-generator string-for-each "abc...  [ PASS]
    14 tests completed in 0.001 seconds.
    14 out of 14 (100%) tests passed.
    -- done testing generators/consumers -------------------------------------

3 subgroups completed in 0.027 seconds.
3 out of 3 (100%) subgroups passed.
-- done testing generators ---------------------------------------------------