simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-05 19:00:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Auto-format code

Browse source
This commit is contained in:
Jan Midtgaard 2025-07-09 16:06:47 +02:00
parent 0290aa9754
commit 1a11459991
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tests/core/t_cbor.ml
View file

@ -99,11 +99,11 @@ let rec shrink (c : Cbor.t) : Cbor.t Q.Iter.t =
let+ s = Q.Shrink.string s in let+ s = Q.Shrink.string s in
`Bytes s `Bytes s
let arb = Q.make ~shrink ~print:Cbor.to_string_diagnostic gen_c;; let arb = Q.make ~shrink ~print:Cbor.to_string_diagnostic gen_c
let rec eq_c c c' = match c,c' with let rec eq_c c c' =
| `Null, `Null match c, c' with
| `Undefined, `Undefined -> true | `Null, `Null | `Undefined, `Undefined -> true
| `Simple i, `Simple i' -> Int.equal i i' | `Simple i, `Simple i' -> Int.equal i i'
| `Bool b, `Bool b' -> Bool.equal b b' | `Bool b, `Bool b' -> Bool.equal b b'
| `Int i, `Int i' -> Int64.equal i i' | `Int i, `Int i' -> Int64.equal i i'
@ -112,9 +112,10 @@ let rec eq_c c c' = match c,c' with
| `Text t, `Text t' -> String.equal t t' | `Text t, `Text t' -> String.equal t t'
| `Array a, `Array a' -> CCList.equal eq_c a a' | `Array a, `Array a' -> CCList.equal eq_c a a'
| `Map m, `Map m' -> | `Map m, `Map m' ->
CCList.equal (fun (t0,t1) (t0',t1') -> eq_c t0 t0' && eq_c t1 t1') m m' CCList.equal (fun (t0, t1) (t0', t1') -> eq_c t0 t0' && eq_c t1 t1') m m'
| `Tag (i,t), `Tag (i',t') -> Int.equal i i' && eq_c t t' | `Tag (i, t), `Tag (i', t') -> Int.equal i i' && eq_c t t'
| _ -> false;; | _ -> false
;;
q ~count:1_000 ~long_factor:10 arb @@ fun c -> q ~count:1_000 ~long_factor:10 arb @@ fun c ->
let s = Cbor.encode c in let s = Cbor.encode c in