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)