[nongnu] elpa/inf-clojure 803a419 193/313: Add test harness (finally?)

[ELPA Syncer]

branch: elpa/inf-clojure
commit 803a419de6cff6515fbb10644dd1e85df801883e
Author: Andrea Richiardi <a.richiardi.work@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Add test harness (finally?)
    
    This patch add ert test harness and some tests around the
    inf-clojure-completion-bounds-of-expr-at-point function.
---
 .gitignore                |  12 +++++
 .travis.yml               |  17 +++++++
 Cask                      |  11 +++++
 test/inf-clojure-tests.el | 114 ++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 154 insertions(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..c724233
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,12 @@
+*~
+*\#*\#
+*.\#*
+*.elc
+.cask
+elpa*
+.depend
+TAGS
+.DS_STORE
+dist
+.vagrant/
+.dir-locals?.el
diff --git a/.travis.yml b/.travis.yml
new file mode 100644
index 0000000..57ec6dd
--- /dev/null
+++ b/.travis.yml
@@ -0,0 +1,17 @@
+language: generic
+sudo: false
+before_install:
+  - curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > x.sh 
&& source ./x.sh
+  - evm install $EVM_EMACS --use --skip
+  - cask
+env:
+  - EVM_EMACS=emacs-24.3-travis
+  - EVM_EMACS=emacs-24.4-travis
+  - EVM_EMACS=emacs-24.5-travis
+  - EVM_EMACS=emacs-25.1-travis
+  - EVM_EMACS=emacs-25.2-travis
+  - EVM_EMACS=emacs-25.3-travis
+script:
+  - emacs --version
+  - cask install
+  - cask exec buttercup -L .
diff --git a/Cask b/Cask
new file mode 100644
index 0000000..d2a5667
--- /dev/null
+++ b/Cask
@@ -0,0 +1,11 @@
+(source gnu)
+(source melpa)
+
+(package-file "inf-clojure.el")
+
+(files "*.el" (:exclude ".dir-locals.el"))
+
+(development
+ (depends-on "clojure-mode")
+ (depends-on "buttercup")
+ (depends-on "assess"))
diff --git a/test/inf-clojure-tests.el b/test/inf-clojure-tests.el
new file mode 100644
index 0000000..994801c
--- /dev/null
+++ b/test/inf-clojure-tests.el
@@ -0,0 +1,114 @@
+;;; inf-clojure-tests.el --- Tests for Inf-Clojure -*- lexical-binding: t; -*-
+;;
+;; Copyright © 2014-2018 Bozhidar Batsov
+
+;; Authors: Bozhidar Batsov <bozhidar@batsov.com>
+;;          Andrea Richiardi <a.richiardi.work@gmail.com>
+;; URL: http://github.com/clojure-emacs/inf-clojure
+;; Keywords: processes, clojure
+;; Package-Requires: ((emacs "24.4") (clojure-mode "5.3"))
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Code completion using alexander-yakushev/compliment.
+
+;;; Code:
+
+;; Tests for inf-clojure.el
+
+(message "Running tests on Emacs %s" emacs-version)
+
+(require 'buttercup)
+(require 'assess)
+(require 'inf-clojure)
+
+(cl-defmacro ict-with-assess-buffers ((&rest varlist) &body body)
+  `(assess-with-temp-buffers (,@varlist)
+                             (clojure-mode)
+                             (inf-clojure-minor-mode)
+                             ,@body))
+
+(defun ict-bounds-string (bounds)
+  (buffer-substring (car bounds) (cdr bounds)))
+
+(describe "inf-clojure--kw-to-symbol"
+  (it "returns symbol form of the given keyword"
+    (expect (inf-clojure--kw-to-symbol "symbol") :to-equal "symbol")
+    (expect (inf-clojure--kw-to-symbol ":clj.core/str") :to-equal 
"clj.core/str")
+    (expect (inf-clojure--kw-to-symbol "::keyword") :to-equal "keyword")
+    (expect (inf-clojure--kw-to-symbol nil) :to-equal nil)))
+
+(describe "completion bounds at point" ()
+  (it "computes bounds for plain-text"
+      (ict-with-assess-buffers
+       ((a (insert "plain-text")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal "plain-text"))))
+
+  (it "computes bounds for @deref"
+      (ict-with-assess-buffers
+       ((a (insert "@deref")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal "deref"))))
+
+  (it "computes bounds for ^:keyword"
+      (ict-with-assess-buffers
+       ((a (insert "^:keyword")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal ":keyword"))))
+
+  (it "computes bounds for ::keyword"
+      (ict-with-assess-buffers
+       ((a (insert "::keyword")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal "::keyword"))))
+
+  (it "computes bounds for [^:keyword (combined break chars and keyword)"
+      (ict-with-assess-buffers
+       ((a (insert "[^:keyword")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal ":keyword"))))
+
+  (it "computes no bounds for point directly after a break expression"
+      (ict-with-assess-buffers
+       ((a (insert "@")))
+       (with-current-buffer a
+         (expect
+          (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))
+          :not :to-be nil))))
+
+  (it "computes bounds for [symbol"
+      (ict-with-assess-buffers
+       ((a (insert "[symbol")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal "symbol"))))
+
+  (it "computes bounds for (@deref (multiple break chars)"
+      (ict-with-assess-buffers
+       ((a (insert "(@deref")))
+       (with-current-buffer a
+         (expect (ict-bounds-string 
(inf-clojure-completion-bounds-of-expr-at-point))
+                 :to-equal "deref")))))
+
+;;; inf-clojure-tests.el ends here