emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add :disabled property to def-test-group!

Browse source
This commit is contained in:
Henrik Lissner 2017-04-12 10:52:42 -04:00
parent 0e6e0a2991
commit c370e1cddd
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/autoload/test.el
View file

@ -3,7 +3,8 @@
;;;###autoload
(defmacro def-test-group! (name &rest body)
(declare (indent defun))
(dolist (form body)
(when (eq (car form) 'ert-deftest)
(setf (cadr form) (intern (format "test-%s-%s" name (symbol-name (cadr form)))))))
`(progn ,@body))
(unless (plist-get body :disabled)
(dolist (form body)
(when (eq (car form) 'ert-deftest)
(setf (cadr form) (intern (format "test-%s-%s" name (symbol-name (cadr form)))))))
`(progn ,@body)))