From 6d013251fe760e298abfec3c19ef73c46ac2908a Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 10 Apr 2023 16:29:36 -0400
Subject: [PATCH] test: add test for CCParse

---
 tests/core/t_parse.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/core/t_parse.ml b/tests/core/t_parse.ml
index d5f96df6..02716c60 100644
--- a/tests/core/t_parse.ml
+++ b/tests/core/t_parse.ml
@@ -177,6 +177,17 @@ in
 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 () ->
 let p0 = skip_white *> U.int in
 let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in