Add search-by-type comparison

ocaml · Oct 24, 2024 · ba26490 · ba26490
1 parent e79cce6
commit ba26490
Showing 1 changed file with 44 additions and 0 deletions.
diff --git 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"
+  }