.elpaignore
.gitignore
.travis.yml
-benchmark
Cask
+context-coloring-benchmark.el
+context-coloring-coverage.el
+context-coloring-test.el
+fixtures
Makefile
screenshot.png
-test
*-pkg.el
*.elc
.cask/
-/benchmark/logs/
-/test/coverage/
+/benchmark/
+/coverage/
${CASK} exec ${EMACS} -Q \
-L . \
-l context-coloring \
- -l benchmark/context-coloring-benchmark.el \
+ -l context-coloring-benchmark \
-f context-coloring-benchmark-run
compile: ${DEPENDENCIES}
${CASK} exec ${EMACS} -Q -batch \
-L . \
-l ert \
- -l test/context-coloring-coverage.el \
+ -l context-coloring-coverage \
-f context-coloring-coverage-ci-init \
- -l test/context-coloring-test.el \
+ -l context-coloring-test \
-f ert-run-tests-batch-and-exit
cover: ${DEPENDENCIES}
${CASK} exec ${EMACS} -Q -batch \
-L . \
-l ert \
- -l test/context-coloring-coverage.el \
+ -l context-coloring-coverage \
-f context-coloring-coverage-local-init \
- -l test/context-coloring-test.el \
+ -l context-coloring-test \
-f ert-run-tests-batch-and-exit
.PHONY: all bench compile uncompile clean test cover
(elp-results)
(buffer-substring-no-properties (point-min) (point-max)))
(kill-buffer))))
- (make-directory (context-coloring-benchmark-resolve-path "./logs") t)
+ (make-directory (context-coloring-benchmark-resolve-path "./benchmark") t)
(append-to-file
(with-temp-buffer
(goto-char (point-min))
(defun context-coloring-benchmark (title fixtures)
"Execute a benchmark titled TITLE against FIXTURES."
(let ((result-file (context-coloring-benchmark-resolve-path
- (format "./logs/results-%s-%s.log"
+ (format "./benchmark/results-%s-%s.log"
title (format-time-string "%s")))))
(mapc
(lambda (path)
fixtures)))
(defconst context-coloring-benchmark-javascript-fixtures
- '("./fixtures/jquery-2.1.1.js"
- "./fixtures/lodash-2.4.1.js"
- "./fixtures/async-0.9.0.js"
- "./fixtures/mkdirp-0.5.0.js")
+ '("./fixtures/benchmark/jquery-2.1.1.js"
+ "./fixtures/benchmark/lodash-2.4.1.js"
+ "./fixtures/benchmark/async-0.9.0.js"
+ "./fixtures/benchmark/mkdirp-0.5.0.js")
"Arbitrary JavaScript files for performance scrutiny.")
(defun context-coloring-benchmark-js2-mode-run ()
(remove-hook 'js2-mode-hook #'context-coloring-mode))
(defconst context-coloring-benchmark-emacs-lisp-fixtures
- '("./fixtures/lisp.el"
- "./fixtures/faces.el"
- "./fixtures/subr.el"
- "./fixtures/simple.el")
+ '("./fixtures/benchmark/lisp.el"
+ "./fixtures/benchmark/faces.el"
+ "./fixtures/benchmark/subr.el"
+ "./fixtures/benchmark/simple.el")
"Arbitrary Emacs Lisp files for performance scrutiny.")
(defun context-coloring-benchmark-emacs-lisp-mode-run ()
(name)
(t "generic"))) name)))
(fixture (cond
- (fixture (format "./fixtures/%s" fixture))
- (,no-fixture "./fixtures/empty")
- (t (format ,(format "./fixtures/%%s.%s" extension) name)))))
+ (fixture (format "./fixtures/test/%s" fixture))
+ (,no-fixture "./fixtures/test/empty")
+ (t (format ,(format "./fixtures/test/%%s.%s" extension) name)))))
,@`((let ((enable-context-coloring-mode ,enable-context-coloring-mode))
`(ert-deftest ,test-name ()
(context-coloring-test-with-fixture