diff options
| -rw-r--r-- | tests/scan.test | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/tests/scan.test b/tests/scan.test index 606d812..fe50930 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -873,43 +873,43 @@ test scan-15.1 {scan %g overflow for small numbers and big mantissa bug 42d14c49 set result [list] # xfail: n<num> = not expected at all, x<num> expected when unfixed foreach {exp numdig ret xfail} { - -321 190 1.111647703142804724397279783953498087821e-321 n0 - -321 191 1.111647703142804724397279783953498087821e-321 x1 - -321 300 1.111647703142804724397279783953498087821e-321 x2 - -321 1600 1.111647703142804724397279783953498087821e-321 x3 + -321 190 1.1116477031428047e-321 n0 + -321 191 1.1116477031428047e-321 x1 + -321 300 1.1116477031428047e-321 x2 + -321 1600 1.1116477031428047e-321 x3 -400 110 0 n4 -400 111 0 n5 -400 300 0 n6 - -221 290 1.111111111111110993454921768172890541494e-221 n7 - -221 291 1.111111111111110993454921768172890541494e-221 x8 - -221 400 1.111111111111110993454921768172890541494e-221 x9 - -221 1600 1.111111111111110993454921768172890541494e-221 x10 - -121 390 1.111111111111111182884141698869046969295e-121 n11 - -121 391 1.111111111111111182884141698869046969295e-121 x12 - -121 500 1.111111111111111182884141698869046969295e-121 x13 - -121 1600 1.111111111111111182884141698869046969295e-121 x14 - 308 202 1.111111111111111167662077577927612945036e+308 n15 - 308 203 1.111111111111111167662077577927612945036e+308 n16 - 308 300 1.111111111111111167662077577927612945036e+308 n17 - 308 1600 1.111111111111111167662077577927612945036e+308 x18 + -221 290 1.111111111111111e-221 n7 + -221 291 1.111111111111111e-221 x8 + -221 400 1.111111111111111e-221 x9 + -221 1600 1.111111111111111e-221 x10 + -121 390 1.1111111111111112e-121 n11 + -121 391 1.1111111111111112e-121 x12 + -121 500 1.1111111111111112e-121 x13 + -121 1600 1.1111111111111112e-121 x14 + 308 202 1.1111111111111112e+308 n15 + 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 - 221 291 1.111111111111111207481621395250718679869e+221 n22 - 221 292 1.111111111111111207481621395250718679869e+221 n23 - 221 400 1.111111111111111207481621395250718679869e+221 n24 - 221 1600 1.111111111111111207481621395250718679869e+221 x25 - 121 391 1.11111111111111112711771954138363761759e+121 n26 - 121 392 1.11111111111111112711771954138363761759e+121 n27 - 121 500 1.11111111111111112711771954138363761759e+121 n28 - 121 1600 1.11111111111111112711771954138363761759e+121 x29 + 221 291 1.1111111111111112e+221 n22 + 221 292 1.1111111111111112e+221 n23 + 221 400 1.1111111111111112e+221 n24 + 221 1600 1.1111111111111112e+221 x25 + 121 391 1.1111111111111111e+121 n26 + 121 392 1.1111111111111111e+121 n27 + 121 500 1.1111111111111111e+121 n28 + 121 1600 1.1111111111111111e+121 x29 } { set s 1.[string repeat 1 $numdig]e$exp set d "no_scan" scan $s %g d - set r [format %.40g $d] + set r [format %.17g $d] if {$r ne $ret} { - lappend result $xfail=[format %.40g $d] + lappend result $xfail=[format %.17g $d] } } set result |