mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2026-05-05 08:54:22 -04:00
format
This commit is contained in:
parent
fec6a8f58f
commit
efa429e3c8
2 changed files with 5 additions and 6 deletions
|
|
@ -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 --- *)
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue