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

3
core/autoload/test.el
View file

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