From 654f6b77217e64190d565fd0d2d9a90aa697a4ec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulysse=20G=C3=A9rard?= <thevoodoos@gmail.com>
Date: Fri, 10 Mar 2023 16:08:50 +0000
Subject: [PATCH] Add a test illustrating the issue

---
 .../locate/exception-at-origin-issue.t        | 32 +++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 tests/test-dirs/locate/exception-at-origin-issue.t

diff --git a/tests/test-dirs/locate/exception-at-origin-issue.t b/tests/test-dirs/locate/exception-at-origin-issue.t
new file mode 100644
index 0000000000..120fa81923
--- /dev/null
+++ b/tests/test-dirs/locate/exception-at-origin-issue.t
@@ -0,0 +1,32 @@
+  $ cat >dune-project <<EOF
+  > (lang dune 3.0)
+  > EOF
+
+  $ cat >dune <<EOF
+  > (library
+  >  (name foo))
+  > EOF
+
+  $ cat >foo.ml <<EOF
+  > exception Unix_error = Unix.Unix_error
+  > EOF
+
+  $ dune build 
+
+FIXME: Merlin should jump to stdlib Unix.Unix_error
+  $ $MERLIN single locate -look-for ml -position 1:31 \
+  > -filename foo.ml <foo.ml
+  {
+    "class": "return",
+    "value": "Already at definition point",
+    "notifications": []
+  }
+
+FIXME: Merlin should jump to stdlib Unix
+  $ $MERLIN single locate -look-for ml -position 1:25 \
+  > -filename foo.ml <foo.ml
+  {
+    "class": "return",
+    "value": "Already at definition point",
+    "notifications": []
+  }