Merge pull request #9 from mirage/upgrade-hxd

Upgrade tests to use hxd.0.3.1
mirage · Mar 7, 2021 · 9d664a5 · 9d664a5
2 parents 0b4921d + 5a31f31
commit 9d664a5
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 5 deletions.
diff --git 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/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
@@ -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
 
@@ -32,5 +33,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)
diff --git 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