Test output for moremacros [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/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.001 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.0 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 -----------------------------------------------------