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