branch: elpa/d-mode
commit 09ecdaa73750307eee6ed0b3cc83be2155f97601
Author: Vladimir Panteleev <[email protected]>
Commit: Vladimir Panteleev <[email protected]>
Add "make coverage"
---
Makefile | 5 +++++
coverage/.gitignore | 1 +
d-mode-test.el | 17 +++++++++++++++--
3 files changed, 21 insertions(+), 2 deletions(-)
diff --git a/Makefile b/Makefile
index 22d5833..e8fc1b5 100644
--- a/Makefile
+++ b/Makefile
@@ -9,6 +9,11 @@ test-source: clean
test-compiled: compile
cask exec emacs -Q -batch -l d-mode-test.el -l d-mode.elc -f
ert-run-tests-batch-and-exit
+# Generate a coverage report viewable in Emacs.
+coverage: clean
+ rm -f d-mode.elc
+ D_MODE_COVERAGE=1 cask exec emacs -Q -batch -l d-mode-test.el -l
d-mode.el -f ert-run-tests-batch-and-exit
+
compile:
$(emacs) -Q -batch --eval '(setq byte-compile-error-on-warn t)' -f
batch-byte-compile d-mode.el
diff --git a/coverage/.gitignore b/coverage/.gitignore
new file mode 100644
index 0000000..f57d528
--- /dev/null
+++ b/coverage/.gitignore
@@ -0,0 +1 @@
+/.resultset.json*
diff --git a/d-mode-test.el b/d-mode-test.el
index 04eae2a..09712c5 100644
--- a/d-mode-test.el
+++ b/d-mode-test.el
@@ -49,11 +49,24 @@
;;----------------------------------------------------------------------------
;;; Code:
-(when (require 'undercover nil t)
- (undercover "d-mode.el"))
+(if (getenv "D_MODE_COVERAGE")
+ (progn
+ ;; Generate a coverage report viewable in Emacs.
+ (require 'undercover)
+ (setq undercover-force-coverage t)
+ (undercover "d-mode.el"
+ (:report-file "coverage/.resultset.json")
+ (:report-format 'simplecov)
+ (:send-report nil))
+ )
+ (when (require 'undercover nil t)
+ (undercover "d-mode.el")))
(require 'd-mode nil t)
+(def-edebug-spec d--static-if (sexp form &optional form))
+(def-edebug-spec d--if-version>= (sexp form &optional form))
+
(require 'htmlfontify)
(defconst d-test-teststyle
