Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

float parsing: also disable {+,-}infinity testing on Windows

master
Gabriel Scherer 2015-12-02 06:13:05 +01:00
parent 7a1abd0882
commit fa4a2d3dcd
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
testsuite/tests/lib-scanf/tscanf.ml
View File

@ -148,11 +148,12 @@ let test5 () =
roundtrip 0X123.456 &&
roundtrip 0X123456789ABCDE. &&
roundtrip epsilon_float &&
(* "nan" parsing fails on Windows? *)
(Sys.win32 || roundtrip nan) &&
roundtrip infinity &&
roundtrip neg_infinity &&
roundtrip (4. *. atan 1.) &&
(Sys.win32 ||
(* nan/infinity parsing fails on Windows? *)
(roundtrip nan &&
roundtrip infinity &&
roundtrip neg_infinity)) &&
true
end
&&
@ -171,11 +172,12 @@ let test5 () =
roundtrip 0X123.456 &&
roundtrip 0X123456789ABCDE. &&
roundtrip epsilon_float &&
(* "nan" parsing fails on Windows? *)
(Sys.win32 || roundtrip nan) &&
roundtrip infinity &&
roundtrip neg_infinity &&
roundtrip (4. *. atan 1.) &&
(Sys.win32 ||
(* nan/infinity parsing fails on Windows? *)
(roundtrip nan &&
roundtrip infinity &&
roundtrip neg_infinity)) &&
true
end
;;