emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/buttercup bb31c85 043/340: Edebugable.


From: ELPA Syncer
Subject: [nongnu] elpa/buttercup bb31c85 043/340: Edebugable.
Date: Thu, 16 Dec 2021 14:59:01 -0500 (EST)

branch: elpa/buttercup
commit bb31c853d7eca3b6572349ca84ec88f932a5c587
Author: myeffort <myeffort@github.com>
Commit: myeffort <myeffort@github.com>

    Edebugable.
---
 buttercup.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index c1b0be1..2bb893f 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -227,7 +227,7 @@ form.")
 
 (defmacro describe (description &rest body)
   "Describe a suite of tests."
-  (declare (indent 1))
+  (declare (indent 1) (debug (&define sexp def-body)))
   `(buttercup-describe ,description (lambda () ,@body)))
 
 (defun buttercup-describe (description body-function)
@@ -251,7 +251,7 @@ form.")
 
 (defmacro it (description &rest body)
   "Define a spec."
-  (declare (indent 1))
+  (declare (indent 1) (debug (&define sexp def-body)))
   `(buttercup-it ,description (lambda () ,@body)))
 
 (defun buttercup-it (description body-function)
@@ -268,7 +268,7 @@ form.")
 
 (defmacro before-each (&rest body)
   "Run BODY before each spec in the current suite."
-  (declare (indent 0))
+  (declare (indent 0) (debug (&define def-body)))
   `(buttercup-before-each (lambda () ,@body)))
 
 (defun buttercup-before-each (function)
@@ -279,7 +279,7 @@ form.")
 
 (defmacro after-each (&rest body)
   "Run BODY after each spec in the current suite."
-  (declare (indent 0))
+  (declare (indent 0) (debug (&define def-body)))
   `(buttercup-after-each (lambda () ,@body)))
 
 (defun buttercup-after-each (function)
@@ -290,7 +290,7 @@ form.")
 
 (defmacro before-all (&rest body)
   "Run BODY before every spec in the current suite."
-  (declare (indent 0))
+  (declare (indent 0) (debug (&define def-body)))
   `(buttercup-before-all (lambda () ,@body)))
 
 (defun buttercup-before-all (function)
@@ -301,7 +301,7 @@ form.")
 
 (defmacro after-all (&rest body)
   "Run BODY after every spec in the current suite."
-  (declare (indent 0))
+  (declare (indent 0) (debug (&define def-body)))
   `(buttercup-after-all (lambda () ,@body)))
 
 (defun buttercup-after-all (function)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]