Test output for fancypants [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null
-- testing fancypants --------------------------------------------------------
-- testing fancification -------------------------------------------------
-- testing ligatures -------------------------------------------------
(fancify "Delicious waffles" default-ligature-map) ........... [ PASS]
(fancify "Ye olde buff coat" default-ligature-map) ........... [ PASS]
(fancify "Can you fly away?" default-ligature-map) ........... [ PASS]
(fancify "Fly, you fools!" default-ligature-map) ............. [ PASS]
4 tests completed in 0.001 seconds.
4 out of 4 (100%) tests passed.
-- done testing ligatures --------------------------------------------
-- testing arrows ----------------------------------------------------
(fancify "number->string" default-arrow-map) ................. [ PASS]
(fancify "Does <-> look like a space ship?" default-arrow-map) [ PASS]
2 tests completed in 0.0 seconds.
2 out of 2 (100%) tests passed.
-- done testing arrows -----------------------------------------------
2 subgroups completed in 0.002 seconds.
2 out of 2 (100%) subgroups passed.
-- done testing fancification --------------------------------------------
-- testing quote education -----------------------------------------------
(smarten-quotes '(p "Fatboy Slim is the band of the '90s!")) ..... [ PASS]
(smarten-quotes '(p "What's that?")) ............................. [ PASS]
(smarten-quotes '(p "\"We're going to need a bigger boat\", he ... [ PASS]
(smarten-quotes '(p "'We're going to need a bigger boat', he sa... [ PASS]
(smarten-quotes '(p "'One' or 'Two'?")) .......................... [ PASS]
(smarten-quotes '(p "\"One\" or \"Two\"?")) ...................... [ PASS]
(smarten-quotes '(p "\"There's " (em "no") " business like show... [ PASS]
(smarten-quotes '(p "``Hi there'', he said")) .................... [ PASS]
(smarten-quotes '(p "````Hi there'', he said'', I said")) ........ [ PASS]
(smarten-quotes '(p "\"``Hi there'', he said\", I said")) ........ [ PASS]
10 tests completed in 0.003 seconds.
10 out of 10 (100%) tests passed.
-- done testing quote education ------------------------------------------
-- testing sxml rulesets -------------------------------------------------
(pre-post-order (pre-post-order '(p "The procedure \"number->st... [ PASS]
(pre-post-order (pre-post-order '(p "The procedure \"" (code "n... [ PASS]
2 tests completed in 0.004 seconds.
2 out of 2 (100%) tests passed.
-- done testing sxml rulesets --------------------------------------------
3 subgroups completed in 0.019 seconds.
3 out of 3 (100%) subgroups passed.
-- done testing fancypants ---------------------------------------------------