This commit is contained in:
Simon Cruanes 2026-04-08 20:59:13 -04:00
parent fec6a8f58f
commit efa429e3c8
2 changed files with 5 additions and 6 deletions

View file

@ -151,8 +151,7 @@ let prop_consistent ops =
with Nope str -> Test.fail_reportf "consistent ops failed:\n%s" str
;;
q arb (fun ops -> prop_consistent ops)
;;
q arb (fun ops -> prop_consistent ops);;
(* --- iter/fold_left/iteri off-by-one --- *)

View file

@ -31,7 +31,7 @@ t @@ fun () ->
(* after clear, get raises *)
let sl = of_string "hello" in
clear sl;
(try
let _ = get sl 0 in
false
with Invalid_argument _ -> true)
try
let _ = get sl 0 in
false
with Invalid_argument _ -> true