Test output for format [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
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