formatting: make these tests actually test the expected code path

diff --git a/basis/formatting/formatting-tests.factor b/basis/formatting/formatting-tests.factor
index d01b4f6336a645990532805b7fbb3c7cedb11bde..eee3d49426e213860137868b7eca3cf0cccaa069 100755 (executable)
--- a/basis/formatting/formatting-tests.factor
+++ b/basis/formatting/formatting-tests.factor
@@ -90,26 +90,26 @@ IN: formatting.tests
 { "987654321098765432" } [ 987654321098765432 "%d" sprintf ] unit-test
 { "987654321098765432.0" } [ 987654321098765432 "%.1f" sprintf ] unit-test
 { "987654321098765432." } [ 987654321098765432 "%.0f" sprintf ] unit-test
-{ "9.8765432109876543200e+17" } [ 987654321098765432 "%.19e" sprintf ] unit-test
-{ "9.876543210987654320e+17" } [ 987654321098765432 "%.18e" sprintf ] unit-test
-{ "9.87654321098765432e+17" } [ 987654321098765432 "%.17e" sprintf ] unit-test
-{ "9.8765432109876543e+17" } [ 987654321098765432 "%.16e" sprintf ] unit-test
-{ "9.876543210987654e+17" } [ 987654321098765432 "%.15e" sprintf ] unit-test
-{ "9.87654321098765e+17" } [ 987654321098765432 "%.14e" sprintf ] unit-test
-{ "9.8765432109877e+17" } [ 987654321098765432 "%.13e" sprintf ] unit-test
-{ "9.876543210988e+17" } [ 987654321098765432 "%.12e" sprintf ] unit-test
-{ "9.87654321099e+17" } [ 987654321098765432 "%.11e" sprintf ] unit-test
-{ "9.8765432110e+17" } [ 987654321098765432 "%.10e" sprintf ] unit-test
-{ "9.876543211e+17" } [ 987654321098765432 "%.9e" sprintf ] unit-test
-{ "9.87654321e+17" } [ 987654321098765432 "%.8e" sprintf ] unit-test
-{ "9.8765432e+17" } [ 987654321098765432 "%.7e" sprintf ] unit-test
-{ "9.876543e+17" } [ 987654321098765432 "%.6e" sprintf ] unit-test
-{ "9.87654e+17" } [ 987654321098765432 "%.5e" sprintf ] unit-test
-{ "9.8765e+17" } [ 987654321098765432 "%.4e" sprintf ] unit-test
-{ "9.877e+17" } [ 987654321098765432 "%.3e" sprintf ] unit-test
-{ "9.88e+17" } [ 987654321098765432 "%.2e" sprintf ] unit-test
-{ "9.9e+17" } [ 987654321098765432 "%.1e" sprintf ] unit-test
-{ "1.e+18" } [ 987654321098765432 "%.0e" sprintf ] unit-test
+{ "9.8765432109876543200e+417" } [ 987654321098765432 10 400 ^ * "%.19e" sprintf ] unit-test
+{ "9.876543210987654320e+417" } [ 987654321098765432 10 400 ^ * "%.18e" sprintf ] unit-test
+{ "9.87654321098765432e+417" } [ 987654321098765432 10 400 ^ * "%.17e" sprintf ] unit-test
+{ "9.8765432109876543e+417" } [ 987654321098765432 10 400 ^ * "%.16e" sprintf ] unit-test
+{ "9.876543210987654e+417" } [ 987654321098765432 10 400 ^ * "%.15e" sprintf ] unit-test
+{ "9.87654321098765e+417" } [ 987654321098765432 10 400 ^ * "%.14e" sprintf ] unit-test
+{ "9.8765432109877e+417" } [ 987654321098765432 10 400 ^ * "%.13e" sprintf ] unit-test
+{ "9.876543210988e+417" } [ 987654321098765432 10 400 ^ * "%.12e" sprintf ] unit-test
+{ "9.87654321099e+417" } [ 987654321098765432 10 400 ^ * "%.11e" sprintf ] unit-test
+{ "9.8765432110e+417" } [ 987654321098765432 10 400 ^ * "%.10e" sprintf ] unit-test
+{ "9.876543211e+417" } [ 987654321098765432 10 400 ^ * "%.9e" sprintf ] unit-test
+{ "9.87654321e+417" } [ 987654321098765432 10 400 ^ * "%.8e" sprintf ] unit-test
+{ "9.8765432e+417" } [ 987654321098765432 10 400 ^ * "%.7e" sprintf ] unit-test
+{ "9.876543e+417" } [ 987654321098765432 10 400 ^ * "%.6e" sprintf ] unit-test
+{ "9.87654e+417" } [ 987654321098765432 10 400 ^ * "%.5e" sprintf ] unit-test
+{ "9.8765e+417" } [ 987654321098765432 10 400 ^ * "%.4e" sprintf ] unit-test
+{ "9.877e+417" } [ 987654321098765432 10 400 ^ * "%.3e" sprintf ] unit-test
+{ "9.88e+417" } [ 987654321098765432 10 400 ^ * "%.2e" sprintf ] unit-test
+{ "9.9e+417" } [ 987654321098765432 10 400 ^ * "%.1e" sprintf ] unit-test
+{ "1.e+418" } [ 987654321098765432 10 400 ^ * "%.0e" sprintf ] unit-test
 
 { "1.5625" } [ 1.5625 "%d" sprintf ] unit-test
 { "1.9p0" } [ 1.5625 "%x" sprintf ] unit-test