From ba26490ec5325b6b81843fa64fbae36d066edf37 Mon Sep 17 00:00:00 2001
From: xvw <xavier.vdw@gmail.com>
Date: Thu, 24 Oct 2024 14:36:01 +0200
Subject: [PATCH] Add `search-by-type` comparison

---
 tests/test-dirs/search/issue1113.t | 44 ++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/tests/test-dirs/search/issue1113.t b/tests/test-dirs/search/issue1113.t
index 88cc81f5e..89fbb6c66 100644
--- a/tests/test-dirs/search/issue1113.t
+++ b/tests/test-dirs/search/issue1113.t
@@ -45,3 +45,47 @@
     "name": "__LOC__",
     "desc": "string"
   }
+
+  $ $MERLIN single search-by-type -filename ./main.ml \
+  > -position 5:25 -limit 10 -query "ezfnifzen -> ezfzef" |
+  > tr '\n' ' ' | jq  '.value[] | {name,type,cost}'
+  {
+    "name": "Gc.major",
+    "type": "unit -> unit"
+  }
+  {
+    "name": "Gc.minor",
+    "type": "unit -> unit"
+  }
+  {
+    "name": "Sys.time",
+    "type": "unit -> float"
+  }
+  {
+    "name": "read_int",
+    "type": "unit -> int"
+  }
+  {
+    "name": "read_int",
+    "type": "unit -> int"
+  }
+  {
+    "name": "flush_all",
+    "type": "unit -> unit"
+  }
+  {
+    "name": "flush_all",
+    "type": "unit -> unit"
+  }
+  {
+    "name": "read_line",
+    "type": "unit -> string"
+  }
+  {
+    "name": "read_line",
+    "type": "unit -> string"
+  }
+  {
+    "name": "Bytes.copy",
+    "type": "bytes -> bytes"
+  }