Test output for box
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 Box Mutable ------------------------------------------------------- (make-box (void)) .................................................... [ PASS] (box? tbox) .......................................................... [ PASS] (box-ref tbox) ....................................................... [ PASS] (not (box? 3)) ....................................................... [ PASS] 4 tests completed in 0 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 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.001 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.001 seconds. 6 out of 6 (100%) tests passed. -- done testing Box Swap -----------------------------------------------------