From c370e1cdddfc53005113a4bddae0d88c408f869b Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Wed, 12 Apr 2017 10:52:42 -0400
Subject: [PATCH] Add :disabled property to def-test-group!

---
 core/autoload/test.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/core/autoload/test.el b/core/autoload/test.el
index 37b4ad9e5..c51da8203 100644
--- a/core/autoload/test.el
+++ b/core/autoload/test.el
@@ -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)))