Test output for list-utils

Testing time: 8.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm

-- testing Skip+ -------------------------------------------------------------
(receive (skip+ '() -1)) ............................................. [ PASS]
(receive (skip+ '() 0)) .............................................. [ PASS]
(receive (skip+ '() 1)) .............................................. [ PASS]
(receive (skip+ '(1) -1)) ............................................ [ PASS]
(receive (skip+ '(1) 0)) ............................................. [ PASS]
(receive (skip+ '(1) 1)) ............................................. [ PASS]
(receive (skip+ '(1) 2)) ............................................. [ PASS]
(receive (skip+ '(1 2) -1)) .......................................... [ PASS]
(receive (skip+ '(1 2) 0)) ........................................... [ PASS]
(receive (skip+ '(1 2) 1)) ........................................... [ PASS]
(receive (skip+ '(1 2) 2)) ........................................... [ PASS]
11 tests completed in 0.002 seconds.
11 out of 11 (100%) tests passed.
-- done testing Skip+ --------------------------------------------------------


-- testing Split-at+ ---------------------------------------------------------
(receive (split-at+ '() -1 #f)) ...................................... [ PASS]
(receive (split-at+ '() 0 #f)) ....................................... [ PASS]
(receive (split-at+ '() 1 #f)) ....................................... [ PASS]
(receive (split-at+ '() -1 '())) ..................................... [ PASS]
(receive (split-at+ '() 0 '())) ...................................... [ PASS]
(receive (split-at+ '() 1 '())) ...................................... [ PASS]
(receive (split-at+ '() -1 '(1))) .................................... [ PASS]
(receive (split-at+ '() 0 '(1))) ..................................... [ PASS]
(receive (split-at+ '() 1 '(1))) ..................................... [ PASS]
(receive (split-at+ '(1) -1 #f)) ..................................... [ PASS]
(receive (split-at+ '(1) 0 #f)) ...................................... [ PASS]
(receive (split-at+ '(1) 1 #f)) ...................................... [ PASS]
(receive (split-at+ '(1) 2 #f)) ...................................... [ PASS]
(receive (split-at+ '(1) -1 '())) .................................... [ PASS]
(receive (split-at+ '(1) 0 '())) ..................................... [ PASS]
(receive (split-at+ '(1) 1 '())) ..................................... [ PASS]
(receive (split-at+ '(1) 2 '())) ..................................... [ PASS]
(receive (split-at+ '(1) -1 '(2))) ................................... [ PASS]
(receive (split-at+ '(1) 0 '(2))) .................................... [ PASS]
(receive (split-at+ '(1) 1 '(2))) .................................... [ PASS]
(receive (split-at+ '(1) 2 '(2))) .................................... [ PASS]
21 tests completed in 0.002 seconds.
21 out of 21 (100%) tests passed.
-- done testing Split-at+ ----------------------------------------------------


-- testing Section -----------------------------------------------------------
size <= 0 ............................................................ [ PASS]
size <= 0 ............................................................ [ PASS]
step <= 0 ............................................................ [ PASS]
step <= 0 ............................................................ [ PASS]
null primary ......................................................... [ PASS]
size > length primary & no pad ....................................... [ PASS]
(section '(1 2) 1 1 #f) .............................................. [ PASS]
(section '(1 2) 2 2 #f) .............................................. [ PASS]
size > length primary & clip ......................................... [ PASS]
size > length primary & pad .......................................... [ PASS]
size > step .......................................................... [ PASS]
size < step .......................................................... [ PASS]
(section '(1 2 3) 2 1 '(a b c)) ...................................... [ PASS]
(section '(1 2) 3 3 '(a b c)) ........................................ [ PASS]
(section '(1 2 3) 2 2 '(a b c)) ...................................... [ PASS]
(section '(1 2 3) 2 2) ............................................... [ PASS]
16 tests completed in 0.001 seconds.
16 out of 16 (100%) tests passed.
-- done testing Section ------------------------------------------------------


-- testing Length ------------------------------------------------------------
(length=0? '()) ...................................................... [ PASS]
(not (length=0? '(1))) ............................................... [ PASS]
(length=1? '(1)) ..................................................... [ PASS]
(not (length=1? '())) ................................................ [ PASS]
(not (length=1? '(1 2))) ............................................. [ PASS]
(length=2? '(1 2)) ................................................... [ PASS]
(not (length=2? '())) ................................................ [ PASS]
(not (length=2? '(1))) ............................................... [ PASS]
(not (length=2? '(1 2 3))) ........................................... [ PASS]
(length>1? '(1 2)) ................................................... [ PASS]
(not (length>1? '())) ................................................ [ PASS]
(not (length>1? '(1))) ............................................... [ PASS]
12 tests completed in 0.001 seconds.
12 out of 12 (100%) tests passed.
-- done testing Length -------------------------------------------------------


-- testing Null Stuff --------------------------------------------------------
(ensure-list '(1)) ................................................... [ PASS]
(ensure-list 1) ...................................................... [ PASS]
(not-null? '(1)) ..................................................... [ PASS]
(not (not-null? '())) ................................................ [ PASS]
4 tests completed in 0 seconds.
4 out of 4 (100%) tests passed.
-- done testing Null Stuff ---------------------------------------------------


-- testing Shift Set ---------------------------------------------------------
(shift!/set lst) ..................................................... [ PASS]
(identity lst) ....................................................... [ PASS]
(shift!/set lst) ..................................................... [ PASS]
(identity lst) ....................................................... [ PASS]
(not (shift!/set lst)) ............................................... [ PASS]
(identity lst) ....................................................... [ PASS]
6 tests completed in 0.001 seconds.
6 out of 6 (100%) tests passed.
-- done testing Shift Set ----------------------------------------------------


-- testing Alist Zip ---------------------------------------------------------
(receive (unzip-alist '((a 1) (b 2)))) ............................... [ PASS]
(zip-alist '(a b) '(1 2)) ............................................ [ PASS]
(zip-alist '(a b) '((1) (2))) ........................................ [ PASS]
(zip-alist '(a b) '(1 2)) ............................................ [ PASS]
4 tests completed in 0.002 seconds.
4 out of 4 (100%) tests passed.
-- done testing Alist Zip ----------------------------------------------------


-- testing Plist <-> Alist ---------------------------------------------------
(alist->plist alst1) ................................................. [ PASS]
(alist->plist alst2) ................................................. [ PASS]
(plist->alist '(a (1) b (2) b (3) c (4) b (5) a (6) d (7))) .......... [ PASS]
(plist->alist '(a 1 b 2 b 3 c 4 b 5 a 6 d 7)) ........................ [ PASS]
4 tests completed in 0.001 seconds.
4 out of 4 (100%) tests passed.
-- done testing Plist <-> Alist ----------------------------------------------


-- testing Alist Delete ------------------------------------------------------
(alist-delete/count 'b alst1 eq? 2) .................................. [ PASS]
(alist-delete/count 'b alst1 eq?) .................................... [ PASS]
(alist-delete/count 'd alst1 eq?) .................................... [ PASS]
(alist-delete/count 'c alst1 eq?) .................................... [ PASS]
(alist-delete/count 'a alst1 eq? 1) .................................. [ PASS]
(alist-delete!/count 'b alst1 eq? 2) ................................. [ PASS]
(alist-delete!/count 'b alst1 eq?) ................................... [ PASS]
(alist-delete!/count 'd alst1 eq?) ................................... [ PASS]
(alist-delete!/count 'c alst1 eq?) ................................... [ PASS]
(alist-delete!/count 'a alst1 eq? 1) ................................. [ PASS]
10 tests completed in 0.001 seconds.
10 out of 10 (100%) tests passed.
-- done testing Alist Delete -------------------------------------------------