Test output for format [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null Passed: (("~a ~A" "hey" "there")) Produce: "hey there" Expect: "hey there" Passed: (("~D tr~:@P/~D win~:P" 7 1)) Produce: "7 tries/1 win" Expect: "7 tries/1 win" Passed: (("~D tr~:@P/~D win~:P" 1 0)) Produce: "1 try/0 wins" Expect: "1 try/0 wins" Passed: (("~D tr~:@P/~D win~:P" 1 1)) Produce: "1 try/1 win" Expect: "1 try/1 win" Passed: (("~D tr~:@P/~D win~:P" 2 3)) Produce: "2 tries/3 wins" Expect: "2 tries/3 wins" Passed: (("Results: ~#[NONE~;~A~;~A ~0[and~;y~] ~A~;~A, ~A and ~A~]~%")) Produce: "Results: NONE\n" Expect: "Results: NONE\n" Passed: (("Results: ~#[NONE~;~A~;~A ~0[and~;y~] ~A~;~A, ~A and ~A~]~%" 1)) Produce: "Results: 1\n" Expect: "Results: 1\n" Passed: (("Results: ~#[NONE~;~A~;~A ~0[and~;y~] ~A~;~A, ~A and ~A~]~%" 1 2)) Produce: "Results: 1 and 2\n" Expect: "Results: 1 and 2\n" Passed: (("Results: ~#[NONE~;~A~;~A ~0[and~;y~] ~A~;~A, ~A and ~A~]~%" 1 2 3)) Produce: "Results: 1, 2 and 3\n" Expect: "Results: 1, 2 and 3\n" Passed: (("~0[Zero~;One~:;Other~]")) Produce: "Zero" Expect: "Zero" Passed: (("~1[Zero~;One~:;Other~]")) Produce: "One" Expect: "One" Passed: (("~2[Zero~;One~:;Other~]")) Produce: "Other" Expect: "Other" Passed: (("~999[Zero~;One~:;Other~]")) Produce: "Other" Expect: "Other" Passed: (("[~:[false~;true~]]" #f)) Produce: "[false]" Expect: "[false]" Passed: (("[~:[false~;true~]]" 34)) Produce: "[true]" Expect: "[true]" Passed: (("[~@[true~]]" #f)) Produce: "[]" Expect: "[]" Passed: (("[~@[true~]]" 39)) Produce: "[true]" Expect: "[true]" Passed: (("~? ~D" "<~A ~D>" ("Foo" 5) 7)) Produce: "<Foo 5> 7" Expect: "<Foo 5> 7" Passed: (("~? ~D" "<~A ~D>" ("Foo" 5 14) 7)) Produce: "<Foo 5> 7" Expect: "<Foo 5> 7" Passed: (("~@? ~D" "<~A ~D>" "Foo" 5 7)) Produce: "<Foo 5> 7" Expect: "<Foo 5> 7" Passed: (("~@? ~D" "<~A ~D>" "Foo" 5 14 7)) Produce: "<Foo 5> 14" Expect: "<Foo 5> 14" Passed: (("The winners are:~{ ~S~}." (fred harry jill))) Produce: "The winners are: fred harry jill." Expect: "The winners are: fred harry jill." Passed: (("Pairs:~{ <~S,~S>~}." (a 1 b 2 c 3))) Produce: "Pairs: <a,1> <b,2> <c,3>." Expect: "Pairs: <a,1> <b,2> <c,3>." Passed: (("Pairs:~:{ <~S,~S>~}." ((a 1) (b 2) (c 3)))) Produce: "Pairs: <a,1> <b,2> <c,3>." Expect: "Pairs: <a,1> <b,2> <c,3>." Passed: (("Pairs:~@{ <~S,~S>~}." a 1 b 2 c 3)) Produce: "Pairs: <a,1> <b,2> <c,3>." Expect: "Pairs: <a,1> <b,2> <c,3>." Passed: (("Pairs:~:@{ <~S,~S>~}." (a 1) (b 2) (c 3))) Produce: "Pairs: <a,1> <b,2> <c,3>." Expect: "Pairs: <a,1> <b,2> <c,3>." Passed: (("[~{hey~}]" ())) Produce: "[]" Expect: "[]" Passed: (("Done.~^ ~D warning~:P.~^ ~D error~:P.")) Produce: "Done." Expect: "Done." Passed: (("Done.~^ ~D warning~:P.~^ ~D error~:P." 3)) Produce: "Done. 3 warnings." Expect: "Done. 3 warnings." Passed: (("Done.~^ ~D warning~:P.~^ ~D error~:P." 1 5)) Produce: "Done. 1 warning. 5 errors." Expect: "Done. 1 warning. 5 errors." Passed: (("~:{/~S~^ ...~}" ((hot dog) (hamburger) (ice cream) (french fries)))) Produce: "/hot .../hamburger/ice .../french ..." Expect: "/hot .../hamburger/ice .../french ..." Passed: (("~[None~;~:{/~S~^...~}~]" 0 ((h e) (d) (h d)))) Produce: "None" Expect: "None" Passed: (("~[None~;~:{/~S~^...~}~]" 1 ((h e) (d) (h d)))) Produce: "/h.../d/h..." Expect: "/h.../d/h..." Passed: (("~1{~:}" "TheData: ~A" (0))) Produce: "TheData: 0" Expect: "TheData: 0" Passed: (("~2{[~A]~}" (0 1 2 3 4))) Produce: "[0][1]" Expect: "[0][1]" Passed: (("~C ~C ~:C ~:C ~@C ~@C" #\a #\newline #\a #\newline #\a #\newline)) Produce: "a \n a ^J #\\a #\\newline" Expect: "a \n a ^J #\\a #\\newline" Passed: (("~:@R ~:@R ~:@R" 23 32384 923)) Produce: "XXIII MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMCCCLXXXIIII DCCCCXXIII" Expect: "XXIII MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMCCCLXXXIIII DCCCCXXIII" Passed: (("~@R ~@R ~@R ~@R" 1980 4 393 9239)) Produce: "MCMLXXX IV CCCXCIII MMMMMMMMMCCXXXIX" Expect: "MCMLXXX IV CCCXCIII MMMMMMMMMCCXXXIX" Passed: (("~R ~R ~R ~R ~R ~R ~R" 128 0 2938328 9238 2839 38 3828)) Produce: "one hundred twenty-eight zero two million, nine hundred thirty-eight thousand, three hundred twenty-eight nine thousand, two hundred thirty-eight two thousand, eight hundred thirty-nine thirty-eight three thousand, eight hundred twenty-eight" Expect: "one hundred twenty-eight zero two million, nine hundred thirty-eight thousand, three hundred twenty-eight nine thousand, two hundred thirty-eight two thousand, eight hundred thirty-nine thirty-eight three thousand, eight hundred twenty-eight" Passed: (("~:R ~:R ~:R ~:R ~:R ~:R ~:R" 128 0 2938328 9238 2839 38 3820)) Produce: "one hundred twenty-eighth zeroth two million, nine hundred thirty-eight thousand, three hundred twenty-eighth nine thousand, two hundred thirty-eighth two thousand, eight hundred thirty-ninth thirty-eighth three thousand, eight hundred twentieth" Expect: "one hundred twenty-eighth zeroth two million, nine hundred thirty-eight thousand, three hundred twenty-eighth nine thousand, two hundred thirty-eighth two thousand, eight hundred thirty-ninth thirty-eighth three thousand, eight hundred twentieth" Passed: (("~5,0F" -67.77)) Produce: " -68." Expect: " -68." Passed: (("~5,1F" -67.77)) Produce: "-67.8" Expect: "-67.8" Passed: (("~,3F" 1)) Produce: "1.000" Expect: "1.000" Passed: (("~F" 1)) Produce: "1.0" Expect: "1.0" Passed: (("~3,3,0,'*F" 2)) Produce: "***" Expect: "***" Passed: (("~,,3F" 1.234)) Produce: "1234.0" Expect: "1234.0" Passed: (("~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" 3.14159 3.14159 3.14159 3.14159 3.14159 3.14159)) Produce: " 3.14| 31.42| 3.14|3.1416|3.14|3.14159" Expect: " 3.14| 31.42| 3.14|3.1416|3.14|3.14159" Passed: (("~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" -3.14159 -3.14159 -3.14159 -3.14159 -3.14159 -3.14159)) Produce: " -3.14|-31.42| -3.14|-3.142|-3.14|-3.14159" Expect: " -3.14|-31.42| -3.14|-3.142|-3.14|-3.14159" Passed: (("~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" 100.0 100.0 100.0 100.0 100.0 100.0)) Produce: "100.00|******|100.00| 100.0|100.00|100.0" Expect: "100.00|******|100.00| 100.0|100.00|100.0" Passed: (("~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" 1234.0 1234.0 1234.0 1234.0 1234.0 1234.0)) Produce: "1234.00|******|??????|1234.0|1234.00|1234.0" Expect: "1234.00|******|??????|1234.0|1234.00|1234.0" Passed: (("~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" 0.006 0.006 0.006 0.006 0.006 0.006)) Produce: " 0.01| 0.06| 0.01| 0.006|0.01|0.006" Expect: " 0.01| 0.06| 0.01| 0.006|0.01|0.006" Passed: (("~E" 123.243)) Produce: "1.23243E+2" Expect: "1.23243E+2" Passed: (("~E" 1)) Produce: "1.0E+0" Expect: "1.0E+0" Passed: (("~10E" 1)) Produce: " 1.0E+0" Expect: " 1.0E+0" Passed: (("~,3E" 1)) Produce: "1.000E+0" Expect: "1.000E+0" Passed: (("~E" 0.0001)) Produce: "1.0E-4" Expect: "1.0E-4" Passed: (("~,,5E" 23)) Produce: "2.3E+00001" Expect: "2.3E+00001" Passed: (("~3,,,,'=E" 23)) Produce: "===" Expect: "===" Passed: (("~10,,,,,'#E" 23)) Produce: "####2.3E+1" Expect: "####2.3E+1" Passed: (("~,,,,,,'$E" 1)) Produce: "1.0$+0" Expect: "1.0$+0" Passed: (("~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@E|~9,2E" 3.14159 3.14159 3.14159 3.14159)) Produce: " 3.14E+0| 31.42$-01|+.003E+03| 3.14E+0" Expect: " 3.14E+0| 31.42$-01|+.003E+03| 3.14E+0" Passed: (("~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@E|~9,2E" -3.14159 -3.14159 -3.14159 -3.14159)) Produce: " -3.14E+0|-31.42$-01|-.003E+03| -3.14E+0" Expect: " -3.14E+0|-31.42$-01|-.003E+03| -3.14E+0" Passed: (("~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@E|~9,2E" 1100.0 1100.0 1100.0 1100.0)) Produce: " 1.10E+3| 11.00$+02|+.001E+06| 1.10E+3" Expect: " 1.10E+3| 11.00$+02|+.001E+06| 1.10E+3" Passed: (("~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@E|~9,2E" 11000000000000.0 11000000000000.0 11000000000000.0 11000000000000.0)) Produce: "*********| 11.00$+12|+.001E+16| 1.10E+13" Expect: "*********| 11.00$+12|+.001E+16| 1.10E+13" Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 0.0314159 0.0314159 0.0314159 0.0314159)) Produce: " 3.14E-2|314.2$-04|0.314E-01| 3.14E-2" Expect: " 3.14E-2|314.2$-04|0.314E-01| 3.14E-2" Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 3141.59 3141.59 3141.59 3141.59)) Produce: " 3.14E+3|314.2$+01|0.314E+04| 3.14E+3" Expect: " 3.14E+3|314.2$+01|0.314E+04| 3.14E+3" Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 0.314159 0.314159 0.314159 0.314159)) Produce: " 0.31 |0.314 |0.314 | 0.31 " Expect: " 0.31 |0.314 |0.314 | 0.31 " Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 3.14159 3.14159 3.14159 3.14159)) Produce: " 3.1 | 3.14 | 3.14 | 3.1 " Expect: " 3.1 | 3.14 | 3.14 | 3.1 " Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 31.4159 31.4159 31.4159 31.4159)) Produce: " 31. | 31.4 | 31.4 | 31. " Expect: " 31. | 31.4 | 31.4 | 31. " Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 314.159 314.159 314.159 314.159)) Produce: " 3.14E+2| 314. | 314. | 3.14E+2" Expect: " 3.14E+2| 314. | 314. | 3.14E+2" Passed: (("~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" 3140000000000.0 3140000000000.0 3140000000000.0 3140000000000.0)) Produce: "*********|314.0$+10|0.314E+13| 3.14E+12" Expect: "*********|314.0$+10|0.314E+13| 3.14E+12" Passed: (("~T")) Produce: " " Expect: " " Passed: ((" ~T")) Produce: " " Expect: " " Passed: (("~4T")) Produce: " " Expect: " " Passed: ((" ~5,6T")) Produce: " " Expect: " " Passed: ((" ~4,4T")) Produce: " " Expect: " " Passed: ((" ~4,4T")) Produce: " " Expect: " " Passed: ((" ~4,3T")) Produce: " " Expect: " " Passed: (("~4,4@T")) Produce: " " Expect: " " Passed: (("~4,3@T")) Produce: " " Expect: " " Passed: ((" ~4,3@T")) Produce: " " Expect: " " Passed: 81 Failed: 0