Test output for list-utils [ok]

Testing time: 7s

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

-- testing List Utils --------------------------------------------------------

    -- 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 1/500 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 1/500 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 1/1000 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 1/1000 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 1/1000 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 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 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Plist <-> Alist ------------------------------------------


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


    -- testing Extensions ----------------------------------------------------
    (pair-ref '(a b c) 1) ............................................ [ PASS]
    (pair-ref '(a b c) 3) ............................................ [ PASS]
    list-set! ........................................................ [ PASS]
    (list-copy* '(a b c)) ............................................ [ PASS]
    (list-copy* '(a b c) 1) .......................................... [ PASS]
    (list-copy* '(a b c) 1 4 'z) ..................................... [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Extensions -----------------------------------------------

10 subgroups completed in 24/125 seconds.
10 out of 10 (100%) subgroups passed.
-- done testing List Utils ---------------------------------------------------


*** csc "-inline-global -specialize -optimize-leaf-routines -clustering -lfa2 -local -inline -no-trace -no-lambda-info -unsafe" ***

-- testing List Utils --------------------------------------------------------

    -- 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 1/1000 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 1/500 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 1/1000 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 1/1000 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 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 1/1000 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 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Plist <-> Alist ------------------------------------------


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


    -- testing Extensions ----------------------------------------------------
    (pair-ref '(a b c) 1) ............................................ [ PASS]
    (pair-ref '(a b c) 3) ............................................ [ PASS]
    list-set! ........................................................ [ PASS]
    (list-copy* '(a b c)) ............................................ [ PASS]
    (list-copy* '(a b c) 1) .......................................... [ PASS]
    (list-copy* '(a b c) 1 4 'z) ..................................... [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Extensions -----------------------------------------------

10 subgroups completed in 1/50 seconds.
10 out of 10 (100%) subgroups passed.
-- done testing List Utils ---------------------------------------------------