Test output for stack [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing Empty Stack ------------------------------------------------------- (make-stack) ......................................................... [ PASS] (stack? (make-stack)) ................................................ [ PASS] (stack-empty? (make-stack)) .......................................... [ PASS] (stack-count (make-stack)) ........................................... [ PASS] 4 tests completed in 0.0 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 0.001 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 0.001 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.001 seconds. 4 out of 4 (100%) tests passed. -- done testing Stack from List ----------------------------------------------