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 ---------------------------------------------------