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