Add Travis integration

.emacs.d/init.el

@@ -3,6 +3,13 @@
 ;; Initialize the package repository.
 (package-initialize)
 
+;; Create variable to determine if we are in dev mode or not.
+;; (Set this in your user hub.)
+(defvar kotct/dev-mode
+  nil
+  "Whether or not kotct/dot emacs dev mode is enabled.
+Makes tests runnable and other dev-only goodies.")
+
 
 ;;; Autoload Configuration
 (setf generated-autoload-file "~/.emacs.d/lisp/kotct-loaddefs.el")
@@ -109,6 +116,10 @@ Despite this, your config appears to have loaded successfully.")
   (if loaddefs-buffer
       (kill-buffer loaddefs-buffer)))
 
+;; If in dev mode, load the test runner.
+(when kotct/dev-mode
+  (require 'dot-tests "~/.emacs.d/test/lisp/dot-tests"))
+
 
 ;;; Customization File
 ;; We set this to something we don't track because it can be unique

.emacs.d/lisp/package/dependencies.el

@@ -19,6 +19,7 @@
     web-mode ;; for editing web files
     elixir-mode ;; for editing Elixir code
     rust-mode ;; for editing Rust code
+    buttercup ;; for tests
 
     ;; THEMES
     solarized-theme)

.emacs.d/test/lisp/behavior/completion-c-test.el

@@ -0,0 +1,47 @@
+(kotct/load-corresponding)
+
+(describe "completion config"
+  (describe "ido menu mode"
+    :var (orig-mode)
+
+    (before-all
+      ; record original setting for later
+      (setf orig-mode kotct/ido-current-menu-mode))
+
+    (after-all
+      ; restore original setting
+      (setf kotct/ido-current-menu-mode orig-mode))
+
+    (before-each
+      (spy-on #'ido-grid-mode)
+      (spy-on #'ido-vertical-mode))
+
+    (describe "is unset correctly"
+      (it "when using grid mode"
+        (let ((kotct/ido-current-menu-mode 'grid))
+          (kotct/ido-unset-menu-mode))
+
+        (expect #'ido-grid-mode :to-have-been-called)
+        (expect (spy-calls-args-for #'ido-grid-mode 0) :to-equal '(-1)))
+
+      (it "when using vertical mode"
+        (let ((kotct/ido-current-menu-mode 'vertical))
+          (kotct/ido-unset-menu-mode))
+
+        (expect #'ido-vertical-mode :to-have-been-called)
+        (expect (spy-calls-args-for #'ido-vertical-mode 0) :to-equal '(-1))))
+
+    (describe "is set correctly"
+      (it "to grid mode"
+        (let ((kotct/ido-current-menu-mode 'normal))
+          (kotct/ido-set-menu-mode 'grid))
+
+        (expect #'ido-grid-mode :to-have-been-called)
+        (expect (spy-calls-args-for #'ido-grid-mode 0) :to-equal '(+1)))
+
+      (it "to vertical mode"
+        (let ((kotct/ido-current-menu-mode 'normal))
+          (kotct/ido-set-menu-mode 'vertical))
+
+        (expect #'ido-vertical-mode :to-have-been-called)
+        (expect (spy-calls-args-for #'ido-vertical-mode 0) :to-equal '(+1))))))

.emacs.d/test/lisp/dot-tests.el

@@ -0,0 +1,45 @@
+(require 'buttercup)
+
+(defun kotct/quietly-load-file (filename &optional throw-error)
+  "Load FILENAME, but do not send a message on success.
+If loading throws an error, send a message with FILENAME and the error.
+If THROW-ERROR is non-nil, re-throw the caught error."
+  (condition-case err
+        (load filename nil 'nomessage)
+      (error
+       (message (format "Error while loading %s:\n%s" file (error-message-string err)))
+       (if throw-error
+           (error (cdr err))))))
+
+(defun kotct/load-corresponding ()
+  "Load the file corresponding to the current test.
+Only works when called in script mode."
+  (when noninteractive
+    (assert (string-match-p "-test\\.el$" load-file-name))
+    (kotct/quietly-load-file
+     (replace-regexp-in-string
+      "-test\\.el$" ".el"
+      (replace-regexp-in-string
+       (regexp-quote "/test/") "/"
+       load-file-name)))))
+
+(defun kotct/run-tests ()
+  "Run all emacs lisp tests for the kotct/dot emacs configuration."
+  (interactive)
+  (setf buttercup-suites nil)
+  (dolist (file (directory-files-recursively
+                 (file-name-directory (symbol-file #'kotct/run-tests))
+                 "-test\\.el\\'"))
+    (kotct/quietly-load-file file))
+  (let ((buttercup-reporter
+         (lambda (event arg)
+           (condition-case err
+               (buttercup-reporter-adaptive event arg)
+             (error
+              ;; avoid error on test failure
+              (unless (and (not noninteractive)
+                           (equal (second err) ""))
+                (error (second err))))))))
+    (buttercup-run)))
+
+(provide 'dot-tests)

.emacs.d/test/lisp/install.el

@@ -0,0 +1,7 @@
+(load-file "~/.emacs.d/lisp/package/dependencies.el")
+(load-file "~/.emacs.d/lisp/package/repositories.el")
+
+(package-initialize)
+(package-refresh-contents)
+
+(mapc #'package-install kotct/dependency-list)

.emacs.d/test/lisp/run-tests.el

@@ -0,0 +1,7 @@
+;; NOTE: this file is designed to be exclusively run in script mode
+
+(package-initialize)
+
+(load-file (concat (file-name-directory load-file-name) "/dot-tests.el"))
+
+(kotct/run-tests)

.travis.yml

@@ -0,0 +1,24 @@
+language: emacs-lisp
+sudo: false
+cache: apt
+env:
+- EVM_EMACS=emacs-25.1-travis
+- EVM_EMACS=emacs-25.2-travis
+- EVM_EMACS=emacs-git-snapshot-travis
+before_install:
+- git clone https://github.com/rejeep/evm.git ~/.evm
+- export PATH="~/.evm/bin:$PATH"
+- evm config path /tmp
+install:
+- evm install $EVM_EMACS --use --skip
+- ln -s "$(pwd)/.emacs.d" ~/.emacs.d
+- emacs --script .emacs.d/test/lisp/install.el
+- echo "base-config" > .emacs.d/lisp/user/default-username
+before_script:
+- emacs --version
+script:
+- emacs --script .emacs.d/init.el
+- emacs --script .emacs.d/test/lisp/run-tests.el
+notifications:
+  slack:
+    secure: Pu2AagcBjx2iBPwsIJ3oNdB5koGfqSP12Mat9KYajxtIwbyzgGsToiyma3+s+Yl02+IRZdGonZaKH/c2RGNF05PK4PAoNfkhYafiog4hKD5ZusIi1xVr0zWOREZVsqpAeu0cxs/b+p7Va66+CRukGYxTGs0LjfEXoJ3KRJYwziSVDYVEoujGHFTPKlyNZNU0fSW+pioVneiVy+hpVvfdzqby9WJG9nK/607xceJ+HVdntXABnUBDk6/1KVqbH36U2Xlw2hlRebGWIowqg/S6yOqn+NxvrM5FNb7LHWxx/mLM3o5Ml1pm9mcDS0M+sPOquLlW/0NPfiV3cz485W6aoSo37z9eassQ4DKQsEjiL4AfGXH4Wgu3BASnWTMkSXfGwW09rKSu1PCyozp76htkiMWp2tJQo/GUAey7PYTSEHhFWBhBL2UaJ3WY4H/1SdaVqHwnBNXU6YEMIJn0S7F31MmQUmSIcVMbqP9XojWl9DHDKP9o4S5CCshYlKR3XzdSeOzyQKb2PKr5NAtU2lYVMfL4XYEsz+sWO1yOCUB+U0yVXdk9kInGHY5AAwIJ6v/ODSDGW67SlXMAJcrkW2nlX8I9JZ+aR4vKo47j+MCPsPMBaPoHyGquVe9++iq67Kdxl18azrQ6fVbjNda3LRTZVH9ekWRf9eMsVBbSeyORUx8=