Test output for box [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing Box Mutable ------------------------------------------------------- (make-box (void)) .................................................... [ PASS] (box? tbox) .......................................................... [ PASS] (box-ref tbox) ....................................................... [ PASS] (not (box? 3)) ....................................................... [ PASS] 4 tests completed in 0.001 seconds. 4 out of 4 (100%) tests passed. -- done testing Box Mutable -------------------------------------------------- -- testing Box Immutable ----------------------------------------------------- (make-box #f #t) ..................................................... [ PASS] (box? tbox) .......................................................... [ PASS] (not (box-ref tbox)) ................................................. [ PASS] (box-set! tbox #t) ................................................... [ PASS] 4 tests completed in 0.001 seconds. 4 out of 4 (100%) tests passed. -- done testing Box Immutable ------------------------------------------------ -- testing Box References ---------------------------------------------------- (make-box-variable var) .............................................. [ PASS] (box? tbox) .......................................................... [ PASS] (box-variable? tbox) ................................................. [ PASS] (not (box-location? tbox)) ........................................... [ PASS] Unbound Box .......................................................... [ PASS] Bound Box ............................................................ [ PASS] Bound Var ............................................................ [ PASS] (not (box? 3)) ....................................................... [ PASS] 8 tests completed in 0.0 seconds. 8 out of 8 (100%) tests passed. -- done testing Box References ----------------------------------------------- -- testing Box Swap ---------------------------------------------------------- (make-box (void)) .................................................... [ PASS] (box? tbox) .......................................................... [ PASS] (box-swap! tbox + 1) ................................................. [ PASS] (box-ref tbox) ....................................................... [ PASS] (box-swap! tbox add1) ................................................ [ PASS] (box-ref tbox) ....................................................... [ PASS] 6 tests completed in 0.0 seconds. 6 out of 6 (100%) tests passed. -- done testing Box Swap -----------------------------------------------------