branch: elpa/buttercup
commit 683614d0276c9d1ea8e9b20e04a30b963bd07a70
Author: Jorgen Schaefer <cont...@jorgenschaefer.de>
Commit: Jorgen Schaefer <cont...@jorgenschaefer.de>
Tests for the describe macro.
---
buttercup-test.el | 6 ++++++
buttercup.el | 4 ++--
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/buttercup-test.el b/buttercup-test.el
index c31d2f6..27c797f 100644
--- a/buttercup-test.el
+++ b/buttercup-test.el
@@ -145,3 +145,9 @@
(expect (buttercup-suite-children suite)
:to-equal
'(23)))))
+
+(describe "The `describe' macro"
+ (it "should expand to a simple call to the describe function"
+ (expect (macroexpand '(describe "description" (+ 1 1)))
+ :to-equal
+ '(buttercup-describe "description" (lambda () (+ 1 1))))))
diff --git a/buttercup.el b/buttercup.el
index c482539..ec852e6 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -252,9 +252,9 @@ form.")
(defmacro describe (description &rest body)
"Describe a suite of tests."
(declare (indent 1))
- `(buttercup--describe-internal ,description (lambda () ,@body)))
+ `(buttercup-describe ,description (lambda () ,@body)))
-(defun buttercup--describe-internal (description body-function)
+(defun buttercup-describe (description body-function)
"Function to handle a `describe' form."
(let* ((enclosing-suite buttercup--current-suite)
(buttercup--current-suite (make-buttercup-suite
