From c1f9d4368738dc3701939dadb95fedefb60ffe38 Mon Sep 17 00:00:00 2001 From: XeroOl Date: Sat, 3 Feb 2024 01:31:46 -0600 Subject: [PATCH] added a test for hovering over multival destructure --- test/hover-test.fnl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/test/hover-test.fnl b/test/hover-test.fnl index 455584f..a8146ff 100644 --- a/test/hover-test.fnl +++ b/test/hover-test.fnl @@ -52,4 +52,13 @@ (check "hover.fnl" 22 22 "```fnl\n{:AB :CD}\n```")) (it "hovers over a special" - (check "hover.fnl" 5 2 "```fnl\n(let [name1 val1 ... nameN valN] ...)\n```\nIntroduces a new scope in which a given set of local bindings are used."))) + (check "hover.fnl" 5 2 "```fnl\n(let [name1 val1 ... nameN valN] ...)\n```\nIntroduces a new scope in which a given set of local bindings are used.")) + + (it "hovers over a multival destructure over (values)" + (let [client (doto (create-client) + (: :open-file! :foo.fnl "(local (a b) (values 1 2))")) + [hover-a] (client:hover :foo.fnl 0 8) + [hover-b] (client:hover :foo.fnl 0 10)] + (is (hover-a.result.contents.value:find "```fnl\n1\n```")) + (is (hover-b.result.contents.value:find "```fnl\n2\n```")) + nil)))