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)))