Test output for moremacros [ok]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null

-- testing Macro: str# -------------------------------------------------------
(str# "") ............................................................ [ PASS]
(str# "abc") ......................................................... [ PASS]
(str# "(+ 1 2) = #(+ 1 2)") .......................................... [ PASS]
(let ((a 1) (b 2)) (str# "(+ a b) = #(+ a b)")) ...................... [ PASS]
(str# "must have sharp (##) characters") ............................. [ PASS]
(str# "issues with #(conc #\\# #\\- \"expressions\")") ............... [ PASS]
(let ((a 1) (b 2)) (str# "#(identity a):#(identity b)")) ............. [ PASS]
(str# "#(+ 23)#(+ 45)") .............................................. [ PASS]
(str# "#(+ 23)###(+ 45)") ............................................ [ PASS]
(str# "#(+ 23):#(+ 45)") ............................................. [ PASS]
(str# "") ............................................................ [ PASS]
(str# "abc") ......................................................... [ PASS]
(str# "(+ 1 2) = #{(+ 1 2)}") ........................................ [ PASS]
(let ((a 1) (b 2)) (str# "(+ a b) = #{(+ a b)}")) .................... [ PASS]
(str# "must have sharp (##) characters") ............................. [ PASS]
(str# "issues with #{(conc #\\# #\\- \"expressions\")}") ............. [ PASS]
(let ((a 1) (b 2)) (str# "#{a}:#{b}")) ............................... [ PASS]
(str# "#{23}#{45}") .................................................. [ PASS]
(str# "#{23}###{45}") ................................................ [ PASS]
(str# "#{23}:#{45}") ................................................. [ PASS]
20 tests completed in 0.002 seconds.
20 out of 20 (100%) tests passed.
-- done testing Macro: str# --------------------------------------------------


-- testing Macro: swap-set!, fluid-set!, stiff-set! --------------------------
(list a b) ........................................................... [ PASS]
(list a b) ........................................................... [ PASS]
(list a b) ........................................................... [ PASS]
3 tests completed in 0.0 seconds.
3 out of 3 (100%) tests passed.
-- done testing Macro: swap-set!, fluid-set!, stiff-set! ---------------------


-- testing Macro: set!/op ----------------------------------------------------
a .................................................................... [ PASS]
1 test completed in 0.0 seconds.
1 out of 1 (100%) test passed.
-- done testing Macro: set!/op -----------------------------------------------


-- testing Macro: type-case --------------------------------------------------
(type-case 23 ((symbol string char) 'symbolic) (number 'numeric... ... [ PASS]
(type-case* 23 ((symbol string char) (list it 'symbolic)) (numb... ... [ PASS]
2 tests completed in 0.0 seconds.
2 out of 2 (100%) tests passed.
-- done testing Macro: type-case ---------------------------------------------


-- testing Numeric -----------------------------------------------------------
(fx++ ia) ............................................................ [ PASS]
(fx-- ia) ............................................................ [ PASS]
(fp++ fa) ............................................................ [ PASS]
(fp-- fa) ............................................................ [ PASS]
(fl++ fa) ............................................................ [ PASS]
(fl-- fa) ............................................................ [ PASS]
(++ ia) .............................................................. [ PASS]
(++ fa) .............................................................. [ PASS]
(-- ia) .............................................................. [ PASS]
(-- fa) .............................................................. [ PASS]
ia ................................................................... [ PASS]
ia ................................................................... [ PASS]
fa ................................................................... [ PASS]
fa ................................................................... [ PASS]
fa ................................................................... [ PASS]
fa ................................................................... [ PASS]
ia ................................................................... [ PASS]
fa ................................................................... [ PASS]
ia ................................................................... [ PASS]
fa ................................................................... [ PASS]
20 tests completed in 0.001 seconds.
20 out of 20 (100%) tests passed.
-- done testing Numeric ------------------------------------------------------


-- testing hash-let ----------------------------------------------------------
abc .................................................................. [ PASS]
cbs .................................................................. [ PASS]
pbs .................................................................. [ PASS]
tbs .................................................................. [ PASS]
4 tests completed in 0.001 seconds.
4 out of 4 (100%) tests passed.
-- done testing hash-let -----------------------------------------------------