From efa429e3c8869afe224562475db3ec6edc80397d Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 8 Apr 2026 20:59:13 -0400 Subject: [PATCH] format --- tests/core/t_byte_buffer.ml | 3 +-- tests/core/t_byte_slice.ml | 8 ++++---- 2 files changed, 5 insertions(+), 6 deletions(-) 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