awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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)))