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

stronger test for cbor

Browse source
This commit is contained in:
Simon Cruanes 2022-06-30 21:06:21 -04:00
parent 20fb411b50
commit 43f88a372f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/cbor/tests/t.ml
View file

@ -15,13 +15,22 @@ let gen_c : Cbor.t Q.Gen.t =
(1, return `Undefined); (1, return `Undefined);
(3, let+ x = int in `Int x); (3, let+ x = int in `Int x);
(1, let+ b = bool in `Bool b); (1, let+ b = bool in `Bool b);
(1, let+ x = 0 -- 19 in `Simple x);
(1, let+ x = 26 -- 127 in `Simple x);
(1, let+ f = float in `Float f); (1, let+ f = float in `Float f);
(2, let+ s = string_size ~gen:printable (0--150) in `Text s); (2, let+ s = string_size ~gen:printable (0--150) in `Text s);
(2, let+ s = string_size ~gen:char (0--150) in `Bytes s); (2, let+ s = string_size ~gen:char (0--150) in `Bytes s);
] in ] in
let g_base = frequency base in
let rec_ = [ let rec_ = [
(2, let+ l = list_size (0--5) recurse in `Array l); (2, let+ l =
(2, let+ l = list_size (0--5) (pair (frequency base) recurse) in `Map l); if size>10 then list_size (0--1024) g_base
else list_size (0--10) recurse
in `Array l);
(2, let+ l =
if size>10 then list_size (0--1024) (pair g_base g_base)
else list_size (0--5) (pair g_base recurse)
in `Map l);
]in ]in
frequency (if size>0 then base @ rec_ else base) frequency (if size>0 then base @ rec_ else base)
@ -50,7 +59,7 @@ let rec shrink (c:Cbor.t) : Cbor.t Q.Iter.t =
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 t1 = let t1 =
Q.Test.make ~count:100_000 ~name:"to_from_same" arb @@ fun c -> Q.Test.make ~count:10_000 ~name:"to_from_same" arb @@ fun c ->
let s = Cbor.encode c in let s = Cbor.encode c in
let c' = Cbor.decode_exn s in let c' = Cbor.decode_exn s in
if not (c = c') then if not (c = c') then