Test output for procedure-decoration [ok]
Testing time: 0s
/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null -- 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.002 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 ---------------------------------------------------