From da0737975aaca313ee4ad9f1e46db1e969672a5b Mon Sep 17 00:00:00 2001
From: dinosaure <romain.calascibetta@gmail.com>
Date: Fri, 5 Mar 2021 19:48:25 +0100
Subject: [PATCH 1/2] Upgrade tests to use hxd.0.3.1

---
 duff.opam    | 2 +-
 fuzz/fuzz.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/duff.opam b/duff.opam
index 358a456..60d8d09 100644
--- a/duff.opam
+++ b/duff.opam
@@ -27,7 +27,7 @@ depends: [
   "stdlib-shims"
   "alcotest"    {with-test}
   "bigstringaf" {with-test}
-  "hxd"         {with-test}
+  "hxd"         {with-test & >= "0.3.1"}
   "crowbar"     {with-test}
 ]
 
diff --git a/fuzz/fuzz.ml b/fuzz/fuzz.ml
index 4b9b6a3..a25408b 100644
--- a/fuzz/fuzz.ml
+++ b/fuzz/fuzz.ml
@@ -32,5 +32,5 @@ let () =
   apply ~len:length a b c rabin ;
 
   check_eq
-    ~pp:(Hxd_string.pp Hxd.O.default)
+    ~pp:(Hxd_string.pp Hxd.default)
     ~eq:String.equal (Bigstringaf.to_string b) (Bigstringaf.to_string c)

From 5a31f31560a5e79f06887fe4a38be18ccb5dc7b3 Mon Sep 17 00:00:00 2001
From: dinosaure <romain.calascibetta@gmail.com>
Date: Fri, 5 Mar 2021 19:50:04 +0100
Subject: [PATCH 2/2] Upgrade to ocamlformat.0.16.0

---
 .ocamlformat | 2 +-
 fuzz/fuzz.ml | 3 ++-
 test/test.ml | 3 ++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/.ocamlformat b/.ocamlformat
index d59e16a..f57d502 100644
--- a/.ocamlformat
+++ b/.ocamlformat
@@ -1,4 +1,4 @@
-version = 0.14.2
+version = 0.16.0
 break-infix = fit-or-vertical
 parse-docstrings = true
 indicate-multiline-delimiters=no
diff --git a/fuzz/fuzz.ml b/fuzz/fuzz.ml
index a25408b..477aabe 100644
--- a/fuzz/fuzz.ml
+++ b/fuzz/fuzz.ml
@@ -2,7 +2,8 @@ open Crowbar
 
 let length l =
   List.fold_left
-    (fun a -> function Duff.Copy (_, len) -> a + len
+    (fun a -> function
+      | Duff.Copy (_, len) -> a + len
       | Duff.Insert (_, len) -> a + len)
     0 l
 
diff --git a/test/test.ml b/test/test.ml
index d1ebb65..c9b1336 100644
--- a/test/test.ml
+++ b/test/test.ml
@@ -33,7 +33,8 @@ let test length =
   let rabin = Duff.delta index ~source ~target in
   let length' =
     List.fold_left
-      (fun a -> function Duff.Copy (_, len) -> a + len
+      (fun a -> function
+        | Duff.Copy (_, len) -> a + len
         | Duff.Insert (_, len) -> a + len)
       0 rabin in