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

test: add test for CCParse

Browse source
This commit is contained in:
Simon Cruanes 2023-04-10 16:29:36 -04:00
parent a8449e9847
commit 6d013251fe
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/core/t_parse.ml
View file

@ -177,6 +177,17 @@ in
parse_string (chars_if pred) "coucou{lol} 123" = Ok "coucou{lol}" parse_string (chars_if pred) "coucou{lol} 123" = Ok "coucou{lol}"
;; ;;
eq
~printer:(errpp Q.Print.(pair string string))
(Ok ("hello", " world"))
(parse_string
(let* slice = take_if (fun c -> c <> ' ') in
let* x = recurse slice all_str in
let* rest = all_str in
return (x, rest))
"hello world")
;;
t @@ fun () -> t @@ fun () ->
let p0 = skip_white *> U.int in let p0 = skip_white *> U.int in
let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in