mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
22 lines
490 B
OCaml
22 lines
490 B
OCaml
open CCFloat
|
|
module T = (val Containers_testlib.make ~__FILE__ ())
|
|
include T;;
|
|
|
|
t @@ fun () -> is_nan (max nan 1.);;
|
|
t @@ fun () -> is_nan (min nan 1.);;
|
|
t @@ fun () -> is_nan (max 1. nan);;
|
|
t @@ fun () -> is_nan (min 1. nan);;
|
|
|
|
q
|
|
Q.(pair float float)
|
|
(fun (x, y) -> is_nan x || is_nan y || (min x y <= x && min x y <= y))
|
|
;;
|
|
|
|
q
|
|
Q.(pair float float)
|
|
(fun (x, y) -> is_nan x || is_nan y || (max x y >= x && max x y >= y))
|
|
;;
|
|
|
|
eq 2. (round 1.6);;
|
|
eq 1. (round 1.4);;
|
|
eq 0. (round 0.)
|