Add test harness (finally?)

This patch add ert test harness and some tests around the
inf-clojure-completion-bounds-of-expr-at-point function.

Author: arichiardi

.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 ./run_tests.sh

Cask

@@ -0,0 +1,10 @@
+(source gnu)
+(source melpa)
+
+(package-file "inf-clojure.el")
+
+(files "*.el" (:exclude ".dir-locals.el"))
+
+(development
+ (depends-on "clojure-mode")
+ (depends-on "ert-runner"))

run-tests.sh

@@ -0,0 +1,62 @@
+#!/bin/sh
+#
+# Copyright © 2014-2018 Bozhidar Batsov
+# Authors: Bozhidar Batsov <[email protected]>
+#          Andrea Richiardi <[email protected]>
+# URL: http://github.com/clojure-emacs/inf-clojure
+
+# 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/>.
+
+# This runs the test for emacs inf-clojure.
+# Either $EMACS must be set, or it must be possible to find emacs via PATH.
+
+if [ -z "$EMACS" ]; then
+    EMACS=emacs
+fi
+
+$EMACS --batch || {
+   echo "You must set EMACS to a program that runs emacs."
+   exit 1
+}
+
+$( $EMACS -batch > /dev/null 2>&1 ) || {
+    echo "Your emacs command ($EMACS) does not run properly."
+    exit 2
+};
+
+$( $EMACS -batch --eval "(require 'ert)" > /dev/null 2>&1 ) || {
+    echo 'You must install the `ert` dependency; see README.md'
+    exit 3
+};
+
+# All the files inf-clojure depends on (in dependency order!)
+DEPS_INCLUDES="-l inf-clojure.el"
+
+WARNINGS="$($EMACS -Q -batch $DEPS_INCLUDES -f batch-byte-compile inf-clojure.el 2>&1 | grep -v '^Wrote ')"
+if [ -n "$WARNINGS" ]; then
+    echo "Byte-compilation failed:"
+    echo "$WARNINGS"
+    rm *.elc
+    exit 4
+else
+    rm *.elc
+    echo "Byte-compilation passed."
+fi
+
+TEST_INCLUDES=$(ls test/*.el | sed -e 's/^/-l /' | xargs)
+
+# Note that the order of the -l counts
+$EMACS -batch -l ert $DEPS_INCLUDES -l inf-clojure.el $TEST_INCLUDES -f ert-run-tests-batch-and-exit

test/inf-clojure-tests.el

@@ -0,0 +1,84 @@
+;;; inf-clojure-tests.el --- Tests for Inf-Clojure -*- lexical-binding: t; -*-
+;;
+;; Copyright © 2014-2018 Bozhidar Batsov
+
+;; Authors: Bozhidar Batsov <[email protected]>
+;;          Andrea Richiardi <[email protected]>
+;; 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 'ert-x)
+(require 'inf-clojure)
+
+(cl-defmacro ict-with-minor-mode-buffer ((&rest args) initial-contents &body body)
+  `(ert-with-test-buffer (,@args)
+     (inf-clojure-minor-mode)
+     (insert ,initial-contents)
+     ,@body))
+
+(defun ict-bounds-string (bounds)
+  (buffer-substring (car bounds) (cdr bounds)))
+
+(ert-deftest clojure-expr-break-chars-tests ()
+  (ict-with-minor-mode-buffer
+   (:name "clojure-expr-break-chars")
+   "plain-text"
+   (should
+    (string-equal
+     "plain-text"
+     (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))))
+
+   (erase-buffer)
+   (insert "@")
+   (goto-char 2)
+   (should
+    (null (inf-clojure-completion-bounds-of-expr-at-point)))
+
+   (erase-buffer)
+   (insert "@text-with-deref")
+   (goto-char 6) ;; arbitrary in the middle of the string
+   (should
+    (string-equal
+     "text-with-deref"
+     (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))))
+
+   (erase-buffer)
+   (insert "^")
+   (goto-char 2)
+   (should
+    (null (inf-clojure-completion-bounds-of-expr-at-point)))
+
+   (erase-buffer)
+   (insert "^:")
+   (should
+    (string-equal
+     ":"
+     (ict-bounds-string (inf-clojure-completion-bounds-of-expr-at-point))))))
+
+;;; inf-clojure-tests.el ends here