Test helper

.gitignore

@@ -1 +1,4 @@
 deps/
+.build/
+.clj-kondo/
+.lsp/

fnl/formedit/init.fnl

@@ -2,8 +2,9 @@
 (local notify (autoload :nfnl.notify))
 (local ts (require :nvim-treesitter.ts_utils))
 
-; (local current-node (ts.get_node_at_cursor))
-; (local cursor_pos (vim.api.nvim_win_get_cursor 0))
+(local current-node (ts.get_node_at_cursor))
+; Cursor {row, col} (Zero indexed)
+(local cursor_pos (vim.api.nvim_win_get_cursor 0))
 
 (fn setup []
   (notify.info :hello))

fnl/spec/init.fnl

@@ -0,0 +1,12 @@
+(vim.opt.runtimepath:append :./.build/dependencies/plenary.nvim)
+(vim.opt.runtimepath:append :./.build/dependencies/nvim-treesitter)
+(vim.opt.runtimepath:append :./.build/parsers)
+(vim.opt.runtimepath:append ".")
+(vim.cmd.runtime {1 :plugin/plenary.vim :bang true})
+(vim.cmd.runtime {1 :plugin/nvim-treesitter.lua :bang true})
+(set vim.o.swapfile false)
+(set vim.bo.swapfile false)
+((. (require :nvim-treesitter.configs) :setup) {:ensure_installed [:clojure]
+                                                :parser_install_dir (.. (vim.fn.getcwd)
+                                                                        :/.build/parsers)
+                                                :sync_install true})

fnl/spec/nfnl/cursor_spec.fnl

@@ -0,0 +1,15 @@
+(local {: describe : it} (require :plenary.busted))
+(local h (require :spec.nfnl.helper))
+
+(describe "move cursor"
+          (fn []
+            (it :forward
+                (fn []
+                  (h.setup {:content "(a)" :cursor [1 1]})
+                  (vim.api.nvim_win_set_cursor 0 [1 2])
+                  (h.expect {:content "(a)" :cursor [1 2]})))
+            (it :back
+                (fn []
+                  (h.setup {:content "(a)" :cursor [1 2]})
+                  (vim.api.nvim_win_set_cursor 0 [1 1])
+                  (h.expect {:content "(a)" :cursor [1 1]})))))

fnl/spec/nfnl/helper.fnl

@@ -0,0 +1,16 @@
+(local assert (require :luassert.assert))
+(local core (require :formedit.nfnl.core))
+
+(fn setup [{: cursor : content}]
+  (vim.api.nvim_buf_set_option 0 :filetype :clojure)
+  (vim.api.nvim_buf_set_lines 0 0 -1 true [content])
+  (vim.api.nvim_win_set_cursor 0 cursor))
+
+(fn expect [{: cursor : content}]
+  (when content
+    (assert.are.same content
+                     (core.first (vim.api.nvim_buf_get_lines 0 0 -1 false))))
+  (when cursor
+    (assert.are.same cursor (vim.api.nvim_win_get_cursor 0))))
+
+{: setup : expect}