24 lines
591 B
OCaml
24 lines
591 B
OCaml
open! Import
|
|
open! Sign_or_nan
|
|
|
|
let%test "of_int" = of_int 37 = Pos && of_int (-22) = Neg && of_int 0 = Zero
|
|
|
|
let%expect_test ("hash coherence" [@tags "64-bits-only"]) =
|
|
check_hash_coherence [%here] (module Sign_or_nan) all;
|
|
[%expect {| |}]
|
|
;;
|
|
|
|
let%expect_test "to_string_hum" =
|
|
List.iter all ~f:(fun t ->
|
|
let string = to_string_hum t in
|
|
print_endline string;
|
|
match to_sign_exn t with
|
|
| exception _ -> ()
|
|
| sign -> require_equal [%here] (module String) string (Sign.to_string_hum sign));
|
|
[%expect {|
|
|
negative
|
|
zero
|
|
positive
|
|
not-a-number
|
|
|}]
|
|
;;
|