simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-05-05 08:54:22 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

format

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/core/t_byte_buffer.ml
View file

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

4
tests/core/t_byte_slice.ml
View file

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