From a409f865f02143ad09c378477d960335854af19c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 10 Oct 2003 14:32:11 +0000 Subject: [PATCH] (inexact->exact): Use corrent argument order for pass-if-exception. Use "+inf.0" instead of "+.inf", etc. --- test-suite/tests/numbers.test | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 4e2fe5776..5fe98bf06 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -2074,14 +2074,14 @@ (with-test-prefix "inexact->exact" - (pass-if-exception exception:numerical-overflow "+inf" - (inexact->exact +.inf)) + (pass-if-exception "+inf" exception:numerical-overflow + (inexact->exact +inf.0)) - (pass-if-exception exception:numerical-overflow "-inf" - (inexact->exact -.inf)) + (pass-if-exception "-inf" exception:numerical-overflow + (inexact->exact -inf.0)) - (pass-if-exception exception:numerical-overflow "nan" - (inexact->exact +.nan)) + (pass-if-exception "nan" exception:numerical-overflow + (inexact->exact +nan.0)) (with-test-prefix "2.0**i to exact and back" (do ((i 0 (1+ i))