branch: elpa/inf-clojure
commit 5dc5e3024725f0c1baefc43b9e569a3be181377c
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Expand test coverage for pure utility functions
Add specs for:
- inf-clojure-symbol-at-point
- inf-clojure-fn-called-at-pt
- inf-clojure-input-filter
- inf-clojure--modeline-info
- inf-clojure-connected-p
- inf-clojure--defun-at-point
- inf-clojure-eldoc-beginning-of-sexp
- inf-clojure-eldoc-info-in-current-sexp
- inf-clojure-eldoc-format-thing
---
test/inf-clojure-tests.el | 119 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 119 insertions(+)
diff --git a/test/inf-clojure-tests.el b/test/inf-clojure-tests.el
index 5ff7ff32df..12cc6dee8e 100644
--- a/test/inf-clojure-tests.el
+++ b/test/inf-clojure-tests.el
@@ -359,4 +359,123 @@ is a string\")
(expect (inf-clojure--string-boundaries "foo(bar)baz" "=>" "(" ")")
:to-equal '(3 8 11))))
+(describe "inf-clojure-symbol-at-point"
+ (it "returns the symbol under point"
+ (ict-with-assess-buffers
+ ((a (insert "map")))
+ (with-current-buffer a
+ (goto-char 2)
+ (expect (inf-clojure-symbol-at-point) :to-equal "map"))))
+ (it "returns empty string when no symbol at point"
+ (ict-with-assess-buffers
+ ((a (insert " ")))
+ (with-current-buffer a
+ (expect (inf-clojure-symbol-at-point) :to-equal ""))))
+ (it "returns a hyphenated symbol"
+ (ict-with-assess-buffers
+ ((a (insert "my-function")))
+ (with-current-buffer a
+ (goto-char 5)
+ (expect (inf-clojure-symbol-at-point) :to-equal "my-function")))))
+
+(describe "inf-clojure-fn-called-at-pt"
+ (it "returns the function name inside a call"
+ (ict-with-assess-buffers
+ ((a (insert "(map inc [1 2 3])")))
+ (with-current-buffer a
+ (goto-char 10)
+ (expect (inf-clojure-fn-called-at-pt) :to-equal 'map))))
+ (it "returns nil when not in a list"
+ (ict-with-assess-buffers
+ ((a (insert "foo")))
+ (with-current-buffer a
+ (expect (inf-clojure-fn-called-at-pt) :to-be nil))))
+ (it "returns nil when car is not a symbol"
+ (ict-with-assess-buffers
+ ((a (insert "(42 foo)")))
+ (with-current-buffer a
+ (goto-char 5)
+ (expect (inf-clojure-fn-called-at-pt) :to-be nil)))))
+
+(describe "inf-clojure-input-filter"
+ (it "rejects blank input"
+ (expect (inf-clojure-input-filter " ") :to-be nil))
+ (it "rejects single-letter keywords"
+ (expect (inf-clojure-input-filter ":a") :to-be nil))
+ (it "accepts normal expressions"
+ (expect (inf-clojure-input-filter "(+ 1 2)") :to-be-truthy))
+ (it "accepts multi-letter keywords"
+ (expect (inf-clojure-input-filter ":foo") :to-be-truthy)))
+
+(describe "inf-clojure--modeline-info"
+ (it "returns 'no process' when inf-clojure-buffer is nil"
+ (let ((inf-clojure-buffer nil))
+ (expect (inf-clojure--modeline-info) :to-equal "no process")))
+ (it "returns 'no process' when inf-clojure-buffer is a dead buffer"
+ (let ((inf-clojure-buffer (generate-new-buffer " *dead*")))
+ (kill-buffer inf-clojure-buffer)
+ (expect (inf-clojure--modeline-info) :to-equal "no process"))))
+
+(describe "inf-clojure-connected-p"
+ (it "returns nil when inf-clojure-buffer is nil"
+ (let ((inf-clojure-buffer nil))
+ (expect (inf-clojure-connected-p) :to-be nil))))
+
+(describe "inf-clojure--defun-at-point"
+ (it "returns the text of the defun at point"
+ (ict-with-assess-buffers
+ ((a (insert "(defn foo [] :bar)")))
+ (with-current-buffer a
+ (goto-char 5)
+ (expect (inf-clojure--defun-at-point) :to-equal "(defn foo [] :bar)"))))
+ (it "returns bounds when requested"
+ (ict-with-assess-buffers
+ ((a (insert "(defn foo [] :bar)")))
+ (with-current-buffer a
+ (goto-char 5)
+ (let ((bounds (inf-clojure--defun-at-point t)))
+ (expect (car bounds) :to-equal 1)
+ (expect (cdr bounds) :to-equal 19))))))
+
+(describe "inf-clojure-eldoc-beginning-of-sexp"
+ (it "returns 0 at the function name"
+ (ict-with-assess-buffers
+ ((a (insert "(map)")))
+ (with-current-buffer a
+ (goto-char 2)
+ (expect (inf-clojure-eldoc-beginning-of-sexp) :to-equal 0))))
+ (it "counts arguments correctly"
+ (ict-with-assess-buffers
+ ((a (insert "(map inc coll)")))
+ (with-current-buffer a
+ (goto-char 10)
+ (expect (inf-clojure-eldoc-beginning-of-sexp) :to-equal 3)))))
+
+(describe "inf-clojure-eldoc-info-in-current-sexp"
+ (it "returns function name and argument index"
+ (ict-with-assess-buffers
+ ((a (insert "(map inc coll)")))
+ (with-current-buffer a
+ (goto-char 10)
+ (expect (inf-clojure-eldoc-info-in-current-sexp)
+ :to-equal '("map" 2)))))
+ (it "returns nil inside a string"
+ (ict-with-assess-buffers
+ ((a (insert "(println \"hello\")")))
+ (with-current-buffer a
+ (goto-char 14)
+ (expect (inf-clojure-eldoc-info-in-current-sexp) :to-be nil))))
+ (it "returns nil inside a vector"
+ (ict-with-assess-buffers
+ ((a (insert "[foo bar]")))
+ (with-current-buffer a
+ (goto-char 5)
+ (expect (inf-clojure-eldoc-info-in-current-sexp) :to-be nil)))))
+
+(describe "inf-clojure-eldoc-format-thing"
+ (it "propertizes with function-name face"
+ (let ((result (inf-clojure-eldoc-format-thing "map")))
+ (expect (get-text-property 0 'face result)
+ :to-equal 'font-lock-function-name-face))))
+
;;; inf-clojure-tests.el ends here
