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

compat 4.03

Browse source
This commit is contained in:
Simon Cruanes 2023-04-07 12:27:55 -04:00
parent 84173382db
commit d985019fe1
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/core/t_parse.ml
View file

@ -294,7 +294,7 @@ eq
(Ok (("!this is the text between!", "LOL"), " and a lot of other stuff")) (Ok (("!this is the text between!", "LOL"), " and a lot of other stuff"))
(parse_string (parse_string
(string "COUCOU" (string "COUCOU"
*> let* slice, x = take_until_success (string "LOL") in *> ( take_until_success (string "LOL") >>= fun (slice, x) ->
let+ rest = take_if (fun _ -> true) <* eoi in take_if (fun _ -> true) <* eoi >|= fun rest ->
(Slice.to_string slice, x), Slice.to_string rest) (Slice.to_string slice, x), Slice.to_string rest ))
"COUCOU!this is the text between!LOL and a lot of other stuff") "COUCOU!this is the text between!LOL and a lot of other stuff")