Test output for stack [ok]

Testing time: 3s

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

-- testing Stack -------------------------------------------------------------

    -- testing Empty Stack ---------------------------------------------------
    (make-stack) ..................................................... [ PASS]
    (stack? (make-stack)) ............................................ [ PASS]
    (stack-empty? (make-stack)) ...................................... [ PASS]
    (stack-count (make-stack)) ....................................... [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Empty Stack ----------------------------------------------


    -- testing Push!/Pop!/Peek/Poke! -----------------------------------------
    (stack-count stk) ................................................ [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-empty? stk) ............................................... [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-peek stk 1) ............................................... [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    10 tests completed in 1/1000 seconds.
    10 out of 10 (100%) tests passed.
    -- done testing Push!/Pop!/Peek/Poke! ------------------------------------


    -- testing Cut! ----------------------------------------------------------
    (stack-cut! stk 1 2) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk 0 1) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk 1 3) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk -1 3) ............................................ [ PASS]
    (stack-cut! stk 0 3) ............................................. [ PASS]
    (stack-cut! stk 0 -3) ............................................ [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing Cut! -----------------------------------------------------


    -- testing Stack from List -----------------------------------------------
    (stack->list stk) ................................................ [ PASS]
    (stack? stk1) .................................................... [ PASS]
    (stack-count stk1) ............................................... [ PASS]
    (stack-pop! stk1) ................................................ [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Stack from List ------------------------------------------

4 subgroups completed in 43/1000 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing Stack --------------------------------------------------------


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

-- testing Stack -------------------------------------------------------------

    -- testing Empty Stack ---------------------------------------------------
    (make-stack) ..................................................... [ PASS]
    (stack? (make-stack)) ............................................ [ PASS]
    (stack-empty? (make-stack)) ...................................... [ PASS]
    (stack-count (make-stack)) ....................................... [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Empty Stack ----------------------------------------------


    -- testing Push!/Pop!/Peek/Poke! -----------------------------------------
    (stack-count stk) ................................................ [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-empty? stk) ............................................... [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-peek stk 1) ............................................... [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-pop! stk) ................................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    10 tests completed in 1/1000 seconds.
    10 out of 10 (100%) tests passed.
    -- done testing Push!/Pop!/Peek/Poke! ------------------------------------


    -- testing Cut! ----------------------------------------------------------
    (stack-cut! stk 1 2) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk 0 1) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk 1 3) ............................................. [ PASS]
    (stack-count stk) ................................................ [ PASS]
    (stack-cut! stk -1 3) ............................................ [ PASS]
    (stack-cut! stk 0 3) ............................................. [ PASS]
    (stack-cut! stk 0 -3) ............................................ [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing Cut! -----------------------------------------------------


    -- testing Stack from List -----------------------------------------------
    (stack->list stk) ................................................ [ PASS]
    (stack? stk1) .................................................... [ PASS]
    (stack-count stk1) ............................................... [ PASS]
    (stack-pop! stk1) ................................................ [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing Stack from List ------------------------------------------

4 subgroups completed in 1/125 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing Stack --------------------------------------------------------