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