Test output for srfi-116 [ok]

Testing time: 0s

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

-- testing ilists/constructors -----------------------------------------------
(icar abc) ........................................................... [ PASS]
(icadr abc) .......................................................... [ PASS]
(icaddr abc) ......................................................... [ PASS]
(xipair 1 2) ......................................................... [ PASS]
(icdddr abc-dot-d) ................................................... [ PASS]
(make-ilist 4 'c) .................................................... [ PASS]
(ilist-tabulate 4 values) ............................................ [ PASS]
(iiota 5) ............................................................ [ PASS]
abc-copy ............................................................. [ PASS]
(not (eq? abc abc-copy)) ............................................. [ PASS]
10 tests completed in 1/1000 seconds.
10 out of 10 (100%) tests passed.
-- done testing ilists/constructors ------------------------------------------


-- testing ilists/predicates -------------------------------------------------
(ipair? (ipair 1 2)) ................................................. [ PASS]
(proper-ilist? '()) .................................................. [ PASS]
(proper-ilist? (iq 1 2 3)) ........................................... [ PASS]
(ilist? '()) ......................................................... [ PASS]
(ilist? (iq 1 2 3)) .................................................. [ PASS]
(dotted-ilist? (ipair 1 2)) .......................................... [ PASS]
(dotted-ilist? 2) .................................................... [ PASS]
(null-ilist? '()) .................................................... [ PASS]
(not (null-ilist? (iq 1 2 3))) ....................................... [ PASS]
(null-ilist? 'a) ..................................................... [ PASS]
(not-ipair? 'a) ...................................................... [ PASS]
(not (not-ipair? (ipair 'a 'b))) ..................................... [ PASS]
(ilist= = (iq 1 2 3) (iq 1 2 3)) ..................................... [ PASS]
(ilist= = (iq 1 2 3) (iq 1 2 3) (iq 1 2 3)) .......................... [ PASS]
(not (ilist= = (iq 1 2 3 4) (iq 1 2 3))) ............................. [ PASS]
(not (ilist= = (iq 1 2 3) (iq 1 2 3 4))) ............................. [ PASS]
(ilist= = (iq 1 2 3) (iq 1 2 3)) ..................................... [ PASS]
(not (ilist= = (iq 1 2 3) (iq 1 2 3 4) (iq 1 2 3 4))) ................ [ PASS]
(not (ilist= = (iq 1 2 3) (iq 1 2 3) (iq 1 2 3 4))) .................. [ PASS]
19 tests completed in 1/1000 seconds.
19 out of 19 (100%) tests passed.
-- done testing ilists/predicates --------------------------------------------


-- testing ilist/cxrs --------------------------------------------------------
(icaar abcd) ......................................................... [ PASS]
(icdar abcd) ......................................................... [ PASS]
(icadr abcd) ......................................................... [ PASS]
(icddr abcd) ......................................................... [ PASS]
(icaaar abcdefgh) .................................................... [ PASS]
(icdaar abcdefgh) .................................................... [ PASS]
(icadar abcdefgh) .................................................... [ PASS]
(icddar abcdefgh) .................................................... [ PASS]
(icaadr abcdefgh) .................................................... [ PASS]
(icdadr abcdefgh) .................................................... [ PASS]
(icaddr abcdefgh) .................................................... [ PASS]
(icdddr abcdefgh) .................................................... [ PASS]
(icaaaar abcdefghijklmnop) ........................................... [ PASS]
(icdaaar abcdefghijklmnop) ........................................... [ PASS]
(icadaar abcdefghijklmnop) ........................................... [ PASS]
(icddaar abcdefghijklmnop) ........................................... [ PASS]
(icaadar abcdefghijklmnop) ........................................... [ PASS]
(icdadar abcdefghijklmnop) ........................................... [ PASS]
(icaddar abcdefghijklmnop) ........................................... [ PASS]
(icdddar abcdefghijklmnop) ........................................... [ PASS]
(icaaadr abcdefghijklmnop) ........................................... [ PASS]
(icdaadr abcdefghijklmnop) ........................................... [ PASS]
(icadadr abcdefghijklmnop) ........................................... [ PASS]
(icddadr abcdefghijklmnop) ........................................... [ PASS]
(icaaddr abcdefghijklmnop) ........................................... [ PASS]
(icdaddr abcdefghijklmnop) ........................................... [ PASS]
(icadddr abcdefghijklmnop) ........................................... [ PASS]
(icddddr abcdefghijklmnop) ........................................... [ PASS]
28 tests completed in 1/500 seconds.
28 out of 28 (100%) tests passed.
-- done testing ilist/cxrs ---------------------------------------------------


-- testing ilists/selectors --------------------------------------------------
(ilist-ref (iq a b c d) 2) ........................................... [ PASS]
(ifirst ten) ......................................................... [ PASS]
(isecond ten) ........................................................ [ PASS]
(ithird ten) ......................................................... [ PASS]
(ifourth ten) ........................................................ [ PASS]
(ififth ten) ......................................................... [ PASS]
(isixth ten) ......................................................... [ PASS]
(iseventh ten) ....................................................... [ PASS]
(ieighth ten) ........................................................ [ PASS]
(ininth ten) ......................................................... [ PASS]
(itenth ten) ......................................................... [ PASS]
(ilist-ref '() 2) .................................................... [ PASS]
(call-with-values (lambda () (icar+icdr (ipair 1 2))) list) .......... [ PASS]
(itake abcde 2) ...................................................... [ PASS]
(idrop abcde 2) ...................................................... [ PASS]
(ilist-tail abcde 2) ................................................. [ PASS]
(itake dotted 2) ..................................................... [ PASS]
(idrop dotted 2) ..................................................... [ PASS]
(ilist-tail dotted 2) ................................................ [ PASS]
(idrop dotted 3) ..................................................... [ PASS]
(ilist-tail dotted 3) ................................................ [ PASS]
(iappend (itake abcde 4) (idrop abcde 4)) ............................ [ PASS]
(itake-right abcde 2) ................................................ [ PASS]
(idrop-right abcde 2) ................................................ [ PASS]
(itake-right dotted 2) ............................................... [ PASS]
(idrop-right dotted 2) ............................................... [ PASS]
(itake-right dotted 0) ............................................... [ PASS]
(idrop-right dotted 0) ............................................... [ PASS]
(call-with-values (lambda () (isplit-at abcde 3)) iappend) ........... [ PASS]
(ilast (iq a b c)) ................................................... [ PASS]
(last-ipair (iq a b c)) .............................................. [ PASS]
31 tests completed in 1/500 seconds.
31 out of 31 (100%) tests passed.
-- done testing ilists/selectors ---------------------------------------------


-- testing ilists/misc -------------------------------------------------------
(ilength '()) ........................................................ [ PASS]
(ilength (iq 1 2 3)) ................................................. [ PASS]
(iappend (iq x) (iq y)) .............................................. [ PASS]
(iappend (iq a b) (iq c d)) .......................................... [ PASS]
(iappend '() (iq a)) ................................................. [ PASS]
(iappend (iq x y)) ................................................... [ PASS]
(iappend) ............................................................ [ PASS]
(iconcatenate (iq (a b) (c d))) ...................................... [ PASS]
(ireverse (iq a b c)) ................................................ [ PASS]
(ireverse (iq a (b c) d (e (f)))) .................................... [ PASS]
(iappend-reverse (iq 1 2) 'd) ........................................ [ PASS]
(izip (iq one two three) (iq 1 2 3) (iq odd even odd)) ............... [ PASS]
(izip (iq 1 2 3)) .................................................... [ PASS]
(iunzip1 (iq (1) (2) (3))) ........................................... [ PASS]
(call-with-values (lambda () (iunzip2 (iq (1 one) (2 two) (3 th... ... [ PASS]
(call-with-values (lambda () (iunzip3 (iq (1 one a) (2 two b) (... ... [ PASS]
(call-with-values (lambda () (iunzip4 (iq (1 one a 4) (2 two b ... ... [ PASS]
(call-with-values (lambda () (iunzip5 (iq (1 one a 4 #t) (2 two... ... [ PASS]
(icount even? (iq 3 1 4 1 5 9 2 5 6)) ................................ [ PASS]
(icount < (iq 1 2 4 8) (iq 2 4 6 8 10 12 14 16)) ..................... [ PASS]
20 tests completed in 1/500 seconds.
20 out of 20 (100%) tests passed.
-- done testing ilists/misc --------------------------------------------------


-- testing ilists/folds ------------------------------------------------------
(ifold + 0 lis) ...................................................... [ PASS]
(ifold ipair '() lis) ................................................ [ PASS]
(ifold (lambda (x count) (if (symbol? x) (+ count 1) count)) 0 ... ... [ PASS]
(ifold (lambda (s max-len) (max max-len (string-length s))) 0 (... ... [ PASS]
(ifold (lambda (a b ans) (+ (* a b) ans)) 0 (iq 1 2 3) (iq 4 5 6)) ... [ PASS]
(ifold z '() (iq a b) (iq c d)) ...................................... [ PASS]
(ifold-right ipair '() lis) .......................................... [ PASS]
(ifold-right (lambda (x l) (if (even? x) (ipair x l) l)) '() (i... ... [ PASS]
(ifold-right z '() (iq a b) (iq c d)) ................................ [ PASS]
(ipair-fold ipair '() (iq a b c)) .................................... [ PASS]
(ipair-fold z '() (iq a b) (iq c d)) ................................. [ PASS]
(ipair-fold-right ipair '() (iq a b c)) .............................. [ PASS]
(ipair-fold-right z '() (iq a b) (iq c d)) ........................... [ PASS]
(ireduce max 0 (iq 1 3 5 4 2 0)) ..................................... [ PASS]
(ireduce - 0 (iq 1 2)) ............................................... [ PASS]
(ireduce-right - 0 (iq 1 2)) ......................................... [ PASS]
(iunfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x)... ... [ PASS]
(iunfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) ... [ PASS]
(iunfold null-ilist? icar icdr (iq 1 2 3)) ........................... [ PASS]
(iunfold-right null-ilist? icar icdr (iq 1 2 3)) ..................... [ PASS]
(iunfold null-ilist? icar icdr (iq 1 2) (lambda (x) (iq 3 4))) ....... [ PASS]
(imap icadr (iq (a b) (d e) (g h))) .................................. [ PASS]
(imap-in-order icadr (iq (a b) (d e) (g h))) ......................... [ PASS]
(imap + (iq 1 2 3) (iq 4 5 6)) ....................................... [ PASS]
(imap-in-order + (iq 1 2 3) (iq 4 5 6)) .............................. [ PASS]
(imap-in-order zz (iq a b)) .......................................... [ PASS]
...v ................................................................. [ PASS]
...v ................................................................. [ PASS]
(iappend-map (lambda (x) (ilist x (- x))) (iq 1 3 8)) ................ [ PASS]
(iappend-map ilist (iq 1 2 3) (iq 4 5 6)) ............................ [ PASS]
...v ................................................................. [ PASS]
...v ................................................................. [ PASS]
(ifilter-map (lambda (x) (and (number? x) (* x x))) (iq a 1 b 3... ... [ PASS]
(ifilter-map (lambda (x y) (and (number? x) (number? y) (+ x y)... ... [ PASS]
34 tests completed in 3/1000 seconds.
34 out of 34 (100%) tests passed.
-- done testing ilists/folds -------------------------------------------------


-- testing ilists/filtering --------------------------------------------------
(ifilter even? (iq 0 7 8 8 43 -4)) ................................... [ PASS]
(call-with-values (lambda () (ipartition symbol? (iq one 2 3 fo... ... [ PASS]
(iremove even? (iq 0 7 8 8 43 -4)) ................................... [ PASS]
3 tests completed in 1/1000 seconds.
3 out of 3 (100%) tests passed.
-- done testing ilists/filtering ---------------------------------------------


-- testing ilists/searching --------------------------------------------------
(ifind even? (iq 1 2 3)) ............................................. [ PASS]
(iany even? (iq 1 2 3)) .............................................. [ PASS]
(ifind even? (iq 1 7 3)) ............................................. [ PASS]
(iany even? (iq 1 7 3)) .............................................. [ PASS]
(ifind even? (ipair 1 (ipair 3 'x))) ................................. [ PASS]
(iany even? (ipair 1 (ipair 3 'x))) .................................. [ PASS]
(ifind even? (iq 3 1 4 1 5 9)) ....................................... [ PASS]
(ifind-tail even? (iq 3 1 37 -8 -5 0 0)) ............................. [ PASS]
(itake-while even? (iq 2 18 3 10 22 9)) .............................. [ PASS]
(idrop-while even? (iq 2 18 3 10 22 9)) .............................. [ PASS]
(call-with-values (lambda () (ispan even? (iq 2 18 3 10 22 9)))... ... [ PASS]
(call-with-values (lambda () (ibreak even? (iq 3 1 4 1 5 9))) l... ... [ PASS]
(iany integer? (iq a 3 b 2.7)) ....................................... [ PASS]
(iany integer? (iq a 3.1 b 2.7)) ..................................... [ PASS]
(iany < (iq 3 1 4 1 5) (iq 2 7 1 8 2)) ............................... [ PASS]
(ievery integer? (iq 1 2 3 4 5)) ..................................... [ PASS]
(ievery integer? (iq 1 2 3 4.5 5)) ................................... [ PASS]
(ievery (lambda (a b) (< a b)) (iq 1 2 3) (iq 4 5 6)) ................ [ PASS]
(ilist-index even? (iq 3 1 4 1 5 9)) ................................. [ PASS]
(ilist-index < (iq 3 1 4 1 5 9 2 5 6) (iq 2 7 1 8 2)) ................ [ PASS]
(ilist-index = (iq 3 1 4 1 5 9 2 5 6) (iq 2 7 1 8 2)) ................ [ PASS]
(imemq 'a (iq a b c)) ................................................ [ PASS]
(imemq 'b (iq a b c)) ................................................ [ PASS]
(imemq 'a (iq b c d)) ................................................ [ PASS]
(imemq (ilist 'a) (iq b (a) c)) ...................................... [ PASS]
(imember (ilist 'a) (iq b (a) c)) .................................... [ PASS]
(imemv 101 (iq 100 101 102)) ......................................... [ PASS]
27 tests completed in 1/500 seconds.
27 out of 27 (100%) tests passed.
-- done testing ilists/searching ---------------------------------------------


-- testing ilists/deletion ---------------------------------------------------
(idelete 3 (iq 1 2 3 4 5)) ........................................... [ PASS]
(idelete 5 (iq 3 4 5 6 7) <) ......................................... [ PASS]
(idelete-duplicates (iq a b a c a b c z)) ............................ [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing ilists/deletion ----------------------------------------------

(iassq 'a e) ......................................................... [ PASS]

-- testing ilists/alists -----------------------------------------------------
(iassq 'b e) ......................................................... [ PASS]
(iassq 'd e) ......................................................... [ PASS]
(iassq (ilist 'a) (iq ((a)) ((b)) ((c)))) ............................ [ PASS]
(iassoc (ilist 'a) (iq ((a)) ((b)) ((c)))) ........................... [ PASS]
(iassv 5 e2) ......................................................... [ PASS]
(iassoc 5 e2 <) ...................................................... [ PASS]
(ialist-cons 1 (ilist 1) e2) ......................................... [ PASS]
(ialist-delete 5 e2) ................................................. [ PASS]
(ialist-delete 5 e2 <) ............................................... [ PASS]
9 tests completed in 1/1000 seconds.
9 out of 9 (100%) tests passed.
-- done testing ilists/alists ------------------------------------------------


-- testing ilists/replacers --------------------------------------------------
(replace-icar (ipair 2 3) 1) ......................................... [ PASS]
(replace-icdr (ipair 1 2) 3) ......................................... [ PASS]
2 tests completed in 0 seconds.
2 out of 2 (100%) tests passed.
-- done testing ilists/replacers ---------------------------------------------


-- testing ilists/conversion -------------------------------------------------
(pair->ipair '(1 . 2)) ............................................... [ PASS]
(ipair->pair (ipair 1 2)) ............................................ [ PASS]
(list->ilist '(1 2 3)) ............................................... [ PASS]
(ilist->list (iq 1 2 3)) ............................................. [ PASS]
(list->ilist '(1 2 . 3)) ............................................. [ PASS]
(ilist->list (ipair 1 (ipair 2 3))) .................................. [ PASS]
(tree->itree '((1 . 2) 3 . 4)) ....................................... [ PASS]
(itree->tree (ipair (ipair 1 2) (ipair 3 4))) ........................ [ PASS]
(gtree->itree (cons (ipair 1 2) (ipair 3 4))) ........................ [ PASS]
(gtree->tree (cons (ipair 1 2) (ipair 3 4))) ......................... [ PASS]
(iapply + (iq 1 2 3)) ................................................ [ PASS]
(iapply + 1 2 (iq 3 4 5)) ............................................ [ PASS]
12 tests completed in 1/1000 seconds.
12 out of 12 (100%) tests passed.
-- done testing ilists/conversion --------------------------------------------