diff --git a/tests/core/t_byte_buffer.ml b/tests/core/t_byte_buffer.ml index b55f6fc0..62d2fe03 100644 --- a/tests/core/t_byte_buffer.ml +++ b/tests/core/t_byte_buffer.ml @@ -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 --- *) diff --git a/tests/core/t_byte_slice.ml b/tests/core/t_byte_slice.ml index 01ce67e7..3dd680ee 100644 --- a/tests/core/t_byte_slice.ml +++ b/tests/core/t_byte_slice.ml @@ -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