From 5c7bff1cc5d9e81a6b367d73540ce38b395e51d9 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 14 May 2025 09:14:37 +0000 Subject: Fix scan-15.1 testcase for gcc on Windows (which has a slightly different "inf" representation) --- tests/scan.test | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/scan.test b/tests/scan.test index fe50930..2a4f375 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -892,9 +892,9 @@ test scan-15.1 {scan %g overflow for small numbers and big mantissa bug 42d14c49 308 203 1.1111111111111112e+308 n16 308 300 1.1111111111111112e+308 n17 308 1600 1.1111111111111112e+308 x18 - 400 110 inf n19 - 400 111 inf n20 - 400 300 inf n21 + 400 110 *inf n19 + 400 111 *inf n20 + 400 300 *inf n21 221 291 1.1111111111111112e+221 n22 221 292 1.1111111111111112e+221 n23 221 400 1.1111111111111112e+221 n24 @@ -908,7 +908,7 @@ test scan-15.1 {scan %g overflow for small numbers and big mantissa bug 42d14c49 set d "no_scan" scan $s %g d set r [format %.17g $d] - if {$r ne $ret} { + if {![string match -nocase $ret $r]} { lappend result $xfail=[format %.17g $d] } } -- cgit v0.12