Add unit test suite, disable test-checks

Reflects the decisions we made over #493.

Code has been copied as is, except for the unit tests in question, which are for `cljr--ns-name` (as a random example that I picked).

Author: vemv

.circleci/config.yml

@@ -9,11 +9,13 @@ default: &default-steps
     - run: make elpa
     - run: emacs --version
     - run: cask --version
+    - run: make unit
     - run: make test
     # Make sure to run test-checks before test-bytecomp, as test-bytecomp autogenerates
     # files which won't pass test-checks.
-    - run: make test-checks
-    - run: make test-bytecomp
+    # disabled - see https://github.com/clojure-emacs/clj-refactor.el/issues/491
+    #- run: make test-checks
+    #- run: make test-bytecomp
 
 # Enumerated list of Emacs versions
 jobs:

Cask

@@ -5,4 +5,5 @@
 
 (development
   (depends-on "ecukes")
-  (depends-on "espuds"))
+  (depends-on "espuds")
+  (depends-on "buttercup"))

Makefile

@@ -31,6 +31,9 @@ clean:
 test: $(PKGDIR)
 	$(CASK) exec ecukes --no-win
 
+unit:
+	$(CASK) exec buttercup -L .
+
 test-checks:
 	$(CASK) exec $(EMACS) --no-site-file --no-site-lisp --batch \
 		-l test/test-checks.el ./

feature/feature.el

@@ -0,0 +1 @@
+(provide 'feature)

test/test-checks.el

@@ -15,16 +15,17 @@
 (setq checkdoc-arguments-in-order-flag nil)
 (setq checkdoc-verb-check-experimental-flag nil)
 
-(let ((files (directory-files default-directory t
-                              "\\`[^.].*\\.el\\'" t)))
+(when nil ;; See https://github.com/clojure-emacs/clj-refactor.el/issues/491
+  (let ((files (directory-files default-directory t
+                                "\\`[^.].*\\.el\\'" t)))
 
-  ;; `checkdoc-file' was introduced in Emacs 25
-  (when (fboundp 'checkdoc-file)
-    (dolist (file files)
-      (checkdoc-file file))
-    (when (get-buffer "*Warnings*")
-      (message "Failing due to checkdoc warnings...")
-      (kill-emacs 1)))
+    ;; `checkdoc-file' was introduced in Emacs 25
+    (when (fboundp 'checkdoc-file)
+      (dolist (file files)
+        (checkdoc-file file))
+      (when (get-buffer "*Warnings*")
+        (message "Failing due to checkdoc warnings...")
+        (kill-emacs 1)))
 
-  (when (apply #'check-declare-files files)
-    (kill-emacs 1)))
+    (when (apply #'check-declare-files files)
+      (kill-emacs 1))))

tests/unit-test.el

@@ -0,0 +1,6 @@
+(require 'paredit)
+(require 'clj-refactor)
+
+(describe "cljr--ns-name"
+  (expect (cljr--ns-name "com.corp.foo") :to-be "foo")
+  (expect (cljr--ns-name "foo") :to-be "foo"))