branch: externals/graphql
commit 8d45c98e9f396626a6fa5d00811b70905bd1f933
Author: Sean Allred <c...@seanallred.com>
Commit: Sean Allred <c...@seanallred.com>
Run tests on Travis
---
.gitignore | 1 +
.travis.yml | 21 ++++++++++
Makefile | 24 +++++++++++
test/make.el | 135 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4 files changed, 181 insertions(+)
diff --git a/.gitignore b/.gitignore
index 28f0a7dc05..9d0a57f4f9 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
.cask/
+.elpa/
diff --git a/.travis.yml b/.travis.yml
new file mode 100644
index 0000000000..5171b30fc1
--- /dev/null
+++ b/.travis.yml
@@ -0,0 +1,21 @@
+language: emacs-lisp
+sudo: false
+cache:
+- directories:
+ - "$HOME/emacs"
+matrix:
+ fast_finish: true
+ allow_failures:
+ - env: EMACS_VERSION=snapshot
+env:
+ matrix:
+ - EMACS_VERSION=25.1
+ - EMACS_VERSION=25.2
+ - EMACS_VERSION=25.3
+ - EMACS_VERSION=snapshot
+before_install:
+- make CI-setup
+install:
+- make install
+script:
+- make test
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000000..e8bb6507a1
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,24 @@
+EENVS := PACKAGE_FILE="graphql.el" PACKAGE_DEV_DEPS="" PACKAGE_SOURCES="gnu"
+EMAKE := $(EENVS) emacs -batch -l test/make.el --eval "(make (pop argv))"
+
+.PHONY: clean install compile test CI-setup
+
+clean:
+ rm -f *.elc
+ rm -rf .elpa/
+
+install: .elpa/
+.elpa/:
+ $(EMAKE) update
+
+compile: clean
+ $(EMAKE) compile
+
+test:
+ $(EMAKE) test
+
+CI-setup:
+ export PATH="$(HOME)/bin:$(PATH)"
+ wget
'https://raw.githubusercontent.com/flycheck/emacs-travis/master/emacs-travis.mk'
+ make -f emacs-travis.mk install_emacs
+ emacs --version
diff --git a/test/make.el b/test/make.el
new file mode 100644
index 0000000000..b7f7737efa
--- /dev/null
+++ b/test/make.el
@@ -0,0 +1,135 @@
+;;; Emacs-Make -- simple, transparent functionality for automated elisp testing
+;;; Based on
http://edkolev.github.io/posts/2017-09-10-travis-for-emacs-packages.html
+
+;;; Basic support for Caskfile syntax; override with environment variables:
+
+;; PACKAGE_FILE := the root file of your package
+;; PACKAGE_DEV_DEPS := list of development-environment dependencies separated
by spaces
+;; PACKAGE_SOURCES := list of package dependencies separated by spaces
+
+;;; You can debug emacs-make by setting the environment variable DEBUG.
+
+(setq debug-on-error (getenv "DEBUG"))
+
+(require 'package)
+(require 'subr-x)
+
+(defun make-get-directive-in-caskfile (directive &optional get-all)
+ "Get DIRECTIVE from the caskfile if it exists.
+If GET-ALL is non-nil, all instances of DIRECTIVE are collected
+into a list."
+ (let ((caskfile "Cask") expr found)
+ (when-let ((caskdir (locate-dominating-file default-directory caskfile))
+ (caskfile (expand-file-name caskfile caskdir)))
+ (with-temp-buffer
+ (insert-file-contents-literally caskfile)
+ (ignore-errors ; may not be able to find DIRECTIVE; don't let `read'
error out
+ (while (not (or (eobp) found))
+ (let ((e (read (current-buffer))))
+ (when (eq directive (car-safe e))
+ (if get-all
+ (push e expr)
+ (setq expr e
+ found t)))))))
+ (cond
+ (get-all expr)
+ (found (cdr-safe expr))))))
+
+(defconst make-package-file
+ (or (getenv "PACKAGE_FILE")
+ (car-safe (make-get-directive-in-caskfile 'package-file))
+ (error "No PACKAGE_FILE and no Caskfile found."))
+ "Main package file.")
+(defconst make-project-root
+ (locate-dominating-file default-directory make-package-file)
+ "Root directory of the project.")
+(defconst make-package-archives
+ (or (when-let ((deps (getenv "PACKAGE_SOURCES")))
+ (thread-last (split-string deps nil t)
+ (mapcar #'downcase)
+ (mapcar #'intern)))
+ (mapcar (lambda (source) (pcase source (`(source ,src) src)))
+ (make-get-directive-in-caskfile 'source t))
+ '(gnu))
+ "List of sources (symbols) to use.")
+(defconst make-dev-deps
+ (or (when-let ((deps (getenv "PACKAGE_DEV_DEPS")))
+ (thread-last (split-string deps nil t)
+ (mapcar #'downcase)
+ (mapcar #'intern)))
+ (mapcar (lambda (dep) (pcase dep (`(depends-on ,package) (intern
package))))
+ (make-get-directive-in-caskfile 'development)))
+ "List of package-symbols that are development dependencies.")
+
+(defconst make-package-archive-master-alist
+ '(("melpa" . "http://melpa.org/packages/";)
+ ("gnu" . "http://elpa.gnu.org/packages/";)))
+
+(defvar make-package-desc
+ (with-temp-buffer
+ (insert-file-contents-literally (expand-file-name make-package-file
make-project-root))
+ (package-buffer-info))
+ "A package-desc object for the current package.")
+
+(defun make (target)
+ "Run `make-TARGET' if bound."
+ (let ((fun (intern (format "make-%s" target))))
+ (unless (fboundp fun)
+ (error "%S target not found" target))
+ (message "Project file detected as: %S" make-package-file)
+ (message "Development dependencies detected as: %S" make-dev-deps)
+ (message "Running target %S with %S\n" target fun)
+ (funcall fun)))
+
+(defun make-test ()
+ "Run all tests in \"PACKAGE-NAME-test.el\"."
+ (let* ((project-tests-file (format "%S-test.el" (package-desc-name
make-package-desc)))
+ (project-tests-path (format "%s/test/" make-project-root)))
+
+ ;; add the package being tested to `load-path' so it can be required
+ (add-to-list 'load-path make-project-root)
+ (add-to-list 'load-path project-tests-path)
+
+ ;; load the file with tests
+ (load (expand-file-name project-tests-file project-tests-path) nil t)
+
+ ;; run the tests
+ (ert-run-tests-batch-and-exit)))
+
+(defun make-update ()
+ "Update required packages.
+Required packages include those that `make-package-file' lists as
+dependencies and those in `make-dev-deps'."
+ (let ((pkglist (append
+ make-dev-deps
+ (thread-last make-package-desc
+ (package-desc-reqs)
+ (mapcar #'car)
+ (delq 'emacs))))
+ (package-user-dir (expand-file-name (format ".elpa/%s/elpa"
emacs-version)))
+ (package-archives
+ (let (l)
+ (dolist (pair make-package-archive-master-alist)
+ (when (memq (intern (car pair)) make-package-archives)
+ (push pair l)))
+ l)))
+
+ (message "installing in %s..." package-user-dir)
+ (package-initialize)
+ (package-refresh-contents)
+
+ ;; install dependencies
+ (dolist (package pkglist)
+ (unless (package-installed-p package)
+ (ignore-errors
+ (package-install package))))
+
+ ;; upgrade dependencies
+ (save-window-excursion
+ (package-list-packages t)
+ (condition-case _
+ (progn
+ (package-menu-mark-upgrades)
+ (package-menu-execute t))
+ (error
+ (message "All packages up to date"))))))
