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

@@ -12,8 +12,9 @@ default: &default-steps
     - 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

@@ -7,7 +7,7 @@ PKGDIR := $(shell EMACS=$(EMACS) $(CASK) package-directory)
 SRCS = $(wildcard *.el)
 OBJS = $(SRCS:.el=.elc)
 
-.PHONY: compile test clean elpa
+.PHONY: compile unit-tests integration-tests test clean elpa
 
 all: compile
 
@@ -28,9 +28,14 @@ compile: elpa
 clean:
 	rm -f $(OBJS)
 
-test: $(PKGDIR)
+integration-tests: $(PKGDIR)
 	$(CASK) exec ecukes --no-win
 
+unit-tests:
+	$(CASK) exec buttercup -L .
+
+test: unit-tests integration-tests
+
 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,9 @@
+(require 'paredit)
+(require 'clj-refactor)
+
+;; NOTE: please remember, without an `it` block, your tests will not be run!
+
+(describe "cljr--ns-name"
+  (it "returns the ns name of its argument"
+    (expect (cljr--ns-name "com.corp.foo") :to-equal "foo")
+    (expect (cljr--ns-name "foo") :to-equal "foo")))