From a5066eaec603bc9fc3693f83af9b1300b3c6e71c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 28 Aug 2017 22:48:28 +0900 Subject: [PATCH] adding alternate representations of floats in read/write precision tests --- tests/r7rs-tests.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index ca68e19f..0bece728 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -2367,15 +2367,15 @@ ;; these all assume double precision, need to add alternatives for single (test-precision "-1.7976931348623157e+308") -(test-precision "4.940656458412465e-324") -(test-precision "9.881312916824931e-324") -(test-precision "1.48219693752374e-323") -(test-precision "1.976262583364986e-323") -(test-precision "2.470328229206233e-323") -(test-precision "2.420921664622108e-322") -(test-precision "2.420921664622108e-320") +(test-precision "4.940656458412465e-324" "5.0e-324") +(test-precision "9.881312916824931e-324" "1.0e-323") +(test-precision "1.48219693752374e-323" "1.5e-323") +(test-precision "1.976262583364986e-323" "2.0e-323") +(test-precision "2.470328229206233e-323" "2.5e-323") +(test-precision "2.420921664622108e-322" "2.4e-322") +(test-precision "2.420921664622108e-320" "2.421e-320") (test-precision "1.4489974452386991") -(test-precision "0.14285714285714282") +(test-precision "0.14285714285714282" "0.14285714285714288") (test-precision "1.7976931348623157e+308") (test-end)