Add unit tests, fix async bug

Author: jebberjeb

src/neovim_client/nvim.clj

@@ -24,7 +24,7 @@
   [component op & args]
   (rpc/send-message-async!
     component
-    (message/->request-msg op (vec (rest args)))
+    (message/->request-msg op (vec (butlast args)))
     (last args)))
 
 (def register-method! rpc/register-method!)

src/user.clj

@@ -1,9 +1,16 @@
 (ns user
   (:require
-    [neovim-client.nvim :as nvim]
-    [clojure.tools.namespace.repl :refer [refresh]]))
+    [clojure.test]
+    [clojure.tools.namespace.repl :refer [refresh]]
+    [neovim-client.nvim :as nvim]))
 
 (defn tcp-connection
   "Get an nvim connection."
   []
-  (nvim/new "localhost" 7777))
+  (nvim/new 1 "localhost" 7777))
+
+(defn run-tests
+  "Run all tests with clojure.test"
+  []
+  (refresh)
+  (clojure.test/run-all-tests))

test/neovim_client/1/api/buffer_ext_test.clj

@@ -0,0 +1,31 @@
+(ns neovim-client.1.api.buffer-ext-test
+  (:require [clojure.core.async :as async]
+            [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.buffer-ext :as api.buffer-ext]
+            [neovim-client.nvim :as client.nvim]
+            [neovim-client.test-helper :refer [with-neovim]]))
+
+(deftest get-lines
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)]
+      (api/command conn "norm ifoo\nbar\nbaz\nqux")
+      (is (= ["bar" "baz"] (api.buffer-ext/get-lines
+                             conn
+                             (api/get-current-buf conn)
+                             1 3))))))
+
+(deftest get-lines-async
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)
+          p (promise)]
+      (api/command conn "norm ifoo\nbar\nbaz\nqux")
+      (api.buffer-ext/get-lines-async
+        conn
+        (api/get-current-buf conn)
+        1 3
+        #(deliver p %))
+      (is (= ["bar" "baz"] @p)))))

test/neovim_client/1/api_ext_test.clj

@@ -1,5 +1,6 @@
 (ns neovim-client.1.api-ext-test
-  (:require [clojure.test :as test :refer [deftest use-fixtures is]]
+  (:require [clojure.core.async :as async]
+            [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]
@@ -15,6 +16,32 @@
         (is (= row 3))
         (is (= col 2))))))
 
-;; TODO get-current-buffer-text
-;; TODO get-current-word-async
-;; TODO buffer-visible?-async
+(deftest get-current-buffer-text
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)]
+      (api/command conn "norm ifoo\nbar\nbaz")
+      (api/command conn "new")
+      (api/command conn "norm iqux")
+      (let [text (api-ext/get-current-buffer-text conn)]
+        (is (= text "qux"))))))
+
+(deftest get-current-word-async
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)]
+      (api/command conn "norm ifoo\nbar\nbaz")
+      (api/command conn "norm bb")
+      (let [p (promise)] (api-ext/get-current-word-async conn #(deliver p %))
+        (is (= @p "bar"))))))
+
+(deftest buffer-visible?-async
+  (with-neovim
+    (let [{:keys [in out]} *neovim*
+          conn (client.nvim/new* 1 in out false)
+          filename (str "/tmp/" (java.util.UUID/randomUUID))]
+
+      (spit filename "test")
+      (api/command conn (str "e " filename))
+      (is (= filename
+             (async/<!! (api-ext/buffer-visible?-async conn filename)))))))