Add a test illustrating issue ocaml#1809

voodoos · Aug 30, 2024 · 2ca077c · 2ca077c
1 parent e016abf
commit 2ca077c
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/tests/test-dirs/document/issue1809.t b/tests/test-dirs/document/issue1809.t
@@ -0,0 +1,28 @@
+Test case from github issue 1809
+  $ cat >test2.ml <<EOF
+  > (** some doc *)
+  > let foo ?(pp=(fun _ _ -> ())) () =
+  >   Format.pp_print_list pp Format.std_formatter []
+  > EOF
+
+FIXME: we shouldn't show [foo] documentation here
+  $ $MERLIN single document -position 3:23 -filename test2.ml < test2.ml
+  {
+    "class": "return",
+    "value": "some doc",
+    "notifications": []
+  }
+
+  $ $MERLIN single document -position 3:24 -filename test2.ml < test2.ml
+  {
+    "class": "return",
+    "value": "some doc",
+    "notifications": []
+  }
+
+  $ $MERLIN single document -position 3:25 -filename test2.ml < test2.ml
+  {
+    "class": "return",
+    "value": "some doc",
+    "notifications": []
+  }