Add a test reproducing the issue #2033.

Author: Tim-ats-d

CHANGES.md

@@ -12,6 +12,7 @@ unreleased
     - Add reproduction case for #1763 but it is not failing anymore (#2021)
     - Add a test to reproduce [Locate command fails on multi-line type definitions](#1987) (#2020)
     - Add a regression test for issue #2019 (#2030)
+    - Add a test reproducing the locate command failure when editor position is in another declaration (#2033)
 
 merlin 5.6.1
 ============

tests/test-dirs/issue2033.t

@@ -0,0 +1,30 @@
+  $ cat >main.mli <<EOF
+  > type typ =
+  >   | A
+  >   | B
+  >   | C
+  > 
+  > val string_of_type : typ -> string
+  > EOF
+
+Work as intended:
+  $ $MERLIN single locate -prefix typ -position 5:0 -context unknown -look-for mli -filename main.mli <main.mli
+  {
+    "class": "return",
+    "value": {
+      "file": "$TESTCASE_ROOT/main.mli",
+      "pos": {
+        "line": 1,
+        "col": 5
+      }
+    },
+    "notifications": []
+  }
+
+TODO: trying to find the `typ` declaration with the cursor positioned on a signature item located after the type definition fails:
+  $ $MERLIN single locate -prefix typ -position 6:10 -context unknown -look-for mli -filename main.mli <main.mli
+  {
+    "class": "return",
+    "value": "Already at definition point",
+    "notifications": []
+  }