Merge pull request #17 from kit-ty-kate/ocaml-5.2

Fix the tests with OCaml 5.2
dinosaure · Apr 4, 2024 · 6868da4 · 6868da4
2 parents fcecf28 + 928e05b
commit 6868da4
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/test/test.ml b/test/test.ml
@@ -36,25 +36,25 @@ let split_on input v expect =
   Alcotest.(check (result (option (pair str str)) errored)) "expect" res (Ok expect)
 
 let complex_0 =
-{|To:A Group(Some people)
-     :Chris Jones <c@(Chris's host.)public.example>,
-         joe@example.org,
-  John <jdoe@one.test> (my dear friend); (the end of the group)
+{|To:A Group(Some people)|}^"\r"^{|
+     :Chris Jones <c@(Chris's host.)public.example>,|}^"\r"^{|
+         joe@example.org,|}^"\r"^{|
+  John <jdoe@one.test> (my dear friend); (the end of the group)|}^"\r"^{|
 |}, "To:A Group :Chris Jones <c@public.example>, joe@example.org, John <jdoe@one.test> ; "
 
 let complex_1 =
-{|To    : Mary Smith
-
-          <mary@example.net>
+{|To    : Mary Smith|}^"\r"^{|
+  |}^"\r"^{|
+          <mary@example.net>|}^"\r"^{|
 |}, "To    : Mary Smith  <mary@example.net>"
 
 let complex_2 =
-{|Date: Thu,
-      13
-        Feb
-          1969
-      23:32
-               -0330 (Newfoundland Time)
+{|Date: Thu,|}^"\r"^{|
+      13|}^"\r"^{|
+        Feb|}^"\r"^{|
+          1969|}^"\r"^{|
+      23:32|}^"\r"^{|
+               -0330 (Newfoundland Time)|}^"\r"^{|
 |}, "Date: Thu, 13 Feb 1969 23:32 -0330 "
 
 let complex (input, expect) =

diff --git a/test/test_angstrom.ml b/test/test_angstrom.ml
@@ -168,9 +168,9 @@ let valid_unstructured_strings input lst' =
   | Error (`Msg err) -> Alcotest.failf "%s" err
 
 let input0 =
-{|From: John Doe <jdoe@machine.example>
-To: Mary Smith <mary@example.net>
-
+{|From: John Doe <jdoe@machine.example>|}^"\r"^{|
+To: Mary Smith <mary@example.net>|}^"\r"^{|
+|}^"\r"^{|
 |}
 
 let input1 =