Add api-ext test

Author: jebberjeb

src/neovim_client/1/api_ext.clj

@@ -8,7 +8,9 @@
     [neovim-client.1.api.window :as api.window]))
 
 (defn get-cursor-location
-  "Gets the cursor's current position as a tuple (row, col)."
+  "Gets the cursor's current position as a tuple (row, col).
+  row - starts at 1
+  col - starts at 0"
   [nvim]
   (api.window/get-cursor nvim (api/get-current-win nvim)))
 

test/neovim_client/1/api_ext_test.clj

@@ -0,0 +1,20 @@
+(ns neovim-client.1.api-ext-test
+  (:require [clojure.test :as test :refer [deftest use-fixtures is]]
+            [neovim-client.1.api :as api]
+            [neovim-client.1.api.buffer :as api.buffer]
+            [neovim-client.1.api-ext :as api-ext]
+            [neovim-client.nvim :as client.nvim]
+            [neovim-client.test-helper :refer [with-neovim]]))
+
+(deftest get-cursor-location
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)]
+      (api/command conn "norm ifoo\nbar\nbaz")
+      (let [[row col] (api-ext/get-cursor-location conn)]
+        (is (= row 3))
+        (is (= col 2))))))
+
+;; TODO get-current-buffer-text
+;; TODO get-current-word-async
+;; TODO buffer-visible?-async

test/neovim_client/nvim_test.clj

@@ -2,26 +2,8 @@
   (:require [clojure.test :as test :refer [deftest use-fixtures is]]
             [neovim-client.1.api :as api]
             [neovim-client.1.api.buffer :as api.buffer]
-            [neovim-client.nvim :as client.nvim]))
-
-(defn- neovim
-  "Make a neovim subprocess."
-  []
-  (let [p (.exec (Runtime/getRuntime) "nvim --embed")]
-    {:process p
-     :in (.getInputStream p)
-     :out (.getOutputStream p)}))
-
-(defn- stop-neovim
-  [{:keys [process]}]
-  (.destroy process))
-
-(defmacro with-neovim
-  [& body]
-  `(let [~'*neovim* (neovim)]
-     (try
-       ~@body
-       (finally (stop-neovim ~'*neovim*)))))
+            [neovim-client.nvim :as client.nvim]
+            [neovim-client.test-helper :refer [with-neovim stop-neovim]]))
 
 ;; TODO - this one will be hard to test. From the client-library's perspective,
 ;; it will always have access to standard out. If it runs at all, standard
@@ -63,7 +45,3 @@
             _ (api.buffer/set-lines conn b2 0 1 false ["bar"])]
         (is (= ["foo"] (api.buffer/get-lines conn b1 0 1 false)))
         (is (= ["bar"] (api.buffer/get-lines conn b2 0 1 false)))))))
-
-#_(clojure.tools.namespace.repl/refresh)
-#_(clojure.test/run-tests 'neovim-client.nvim-test)
-#_(neovim-client.nvim-test/change-buffer-text)

test/neovim_client/test_helper.clj

@@ -0,0 +1,20 @@
+(ns neovim-client.test-helper)
+
+(defn neovim
+  "Make a neovim subprocess."
+  []
+  (let [p (.exec (Runtime/getRuntime) "nvim --embed")]
+    {:process p
+     :in (.getInputStream p)
+     :out (.getOutputStream p)}))
+
+(defn stop-neovim
+  [{:keys [process]}]
+  (.destroy process))
+
+(defmacro with-neovim
+  [& body]
+  `(let [~'*neovim* (neovim)]
+     (try
+       ~@body
+       (finally (stop-neovim ~'*neovim*)))))