math.parser: add a few more tests for number>string

[factor.git] / core / math / parser / parser-tests.factor

diff --git a/core/math/parser/parser-tests.factor b/core/math/parser/parser-tests.factor
index e14a801ca5d46d04fecb08f0f849b08da69610e1..9faa75870a15de4444516d3e4af215637114c898 100644 (file)
--- a/core/math/parser/parser-tests.factor
+++ b/core/math/parser/parser-tests.factor
@@ -510,3 +510,7 @@ unit-test
 } [
     trouble CHAR: e 0 rot set-nth trouble drop
 ] unit-test
+
+{ "143.99999999999997" } [ 0x1.1ffffffffffffp7 number>string ] unit-test
+{ "144.0" } [ 0x1.2p7 number>string ] unit-test
+{ "144.00000000000003" } [ 0x1.2000000000001p7 number>string ] unit-test