adding test for multilines in .mli

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

test/bin/mdx-test/expect/dune.inc

@@ -275,6 +275,18 @@
  (alias runtest)
  (action (diff multilines/test-case.md multilines.actual)))
 
+(rule
+ (target multilines-mli.actual)
+ (deps (package mdx) (source_tree multilines-mli))
+ (action
+  (with-stdout-to %{target}
+   (chdir multilines-mli
+    (run ocaml-mdx test --output - test-case.mli)))))
+
+(rule
+ (alias runtest)
+ (action (diff multilines-mli/test-case.mli multilines-mli.actual)))
+
 (rule
  (target non-det.actual)
  (deps (package mdx) (source_tree non-det))

test/bin/mdx-test/expect/multilines-mli/test-case.mli

@@ -0,0 +1,44 @@
+(**
+
+In OCaml docstring everything is indented with two spaces
+
+Test multi-lines shell commands:
+
+{@sh[
+  $ for i in `seq 1 10`; do \
+  >   echo $i; \
+  > done
+  1
+  ...
+  10
+]}
+
+This works for normal OCaml fragments:
+
+{[
+  let rec fact = function
+  | 1 -> 1
+  | n -> n * fact (n-1)
+]}
+
+The formatting for multilines in .mli files is the following:
+- Everything is indented with two spaces after the column of the opening code
+  block.
+
+  {[
+    match None with
+    | None -> ()
+    | Some a -> match a with
+    | None -> ()
+    | Some b -> b
+  ]}
+
+But it does not work fine for toplevel (see [multilines/test-case.md] for the
+correct definition of [fact]):
+
+{[
+  # let rec fact = function;;
+  Line 1, characters 24-26:
+  Error: Syntax error
+]}
+*)