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

update test

Browse source
This commit is contained in:
Simon Cruanes 2015-09-16 09:58:41 +02:00
parent 504df0c0a4
commit 65d7c6d3ae
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/sexp/CCSexpM.ml
View file

@ -358,10 +358,15 @@ let parse_string s : t or_error =
| `List l -> Q.Iter.map mklist (Q.Shrink.list ~shrink l)
in
Q.make ~print ~small ~shrink gen
let rec sexp_valid = function
| `Atom "" -> false
| `Atom _ -> true
| `List l -> List.for_all sexp_valid l
*)
(*$Q & ~count:30
sexp_gen (fun s -> to_string s |> parse_string = `Ok s)
sexp_gen (fun s -> sexp_valid s ==> (to_string s |> parse_string = `Ok s))
*)
let parse_chan ?bufsize ic =