Test output for procedure-decoration
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 Become? yes ------------------------------------------------------- (not (documented-procedure? test-proc)) .............................. [ PASS] (set! (procedure-documentation test-proc) "test-proc is foo") ........ [ PASS] (documented-procedure? test-proc) .................................... [ PASS] (procedure-documentation test-proc) .................................. [ PASS] (test-proc) .......................................................... [ PASS] 5 tests completed in 0.003 seconds. 5 out of 5 (100%) tests passed. -- done testing Become? yes -------------------------------------------------- -- testing Become? no -------------------------------------------------------- (set! dctr (make-procedure-decorator (lambda (obj) (and (pair? ... ... [ PASS] (not (decorated-procedure? test-proc dctr)) .......................... [ PASS] (set! decr-test-proc (decorate-procedure test-proc dctr "test-p... ... [ PASS] Procedure did not "become" ........................................... [ PASS] (decorated-procedure? decr-test-proc dctr) ........................... [ PASS] (procedure-decoration decr-test-proc dctr) ........................... [ PASS] (test-proc) .......................................................... [ PASS] (decr-test-proc) ..................................................... [ PASS] 8 tests completed in 0.001 seconds. 8 out of 8 (100%) tests passed. -- done testing Become? no ---------------------------------------------------