47 lines
953 B
OCaml
47 lines
953 B
OCaml
open! Import
|
|
|
|
let%expect_test "hash coherence" =
|
|
check_hash_coherence [%here] (module Bool) [ false; true ];
|
|
[%expect {| |}]
|
|
;;
|
|
|
|
let%expect_test "Bool.Non_short_circuiting.(||)" =
|
|
let ( || ) = Bool.Non_short_circuiting.( || ) in
|
|
assert (true || true);
|
|
assert (true || false);
|
|
assert (false || true);
|
|
assert (not (false || false));
|
|
assert (
|
|
true
|
|
||
|
|
(print_endline "rhs";
|
|
true));
|
|
[%expect {| rhs |}];
|
|
assert (
|
|
false
|
|
||
|
|
(print_endline "rhs";
|
|
true));
|
|
[%expect {| rhs |}]
|
|
;;
|
|
|
|
let%expect_test "Bool.Non_short_circuiting.(&&)" =
|
|
let ( && ) = Bool.Non_short_circuiting.( && ) in
|
|
assert (true && true);
|
|
assert (not (true && false));
|
|
assert (not (false && true));
|
|
assert (not (false && false));
|
|
assert (
|
|
true
|
|
&&
|
|
(print_endline "rhs";
|
|
true));
|
|
[%expect {| rhs |}];
|
|
assert (
|
|
not
|
|
(false
|
|
&&
|
|
(print_endline "rhs";
|
|
true)));
|
|
[%expect {| rhs |}]
|
|
;;
|