[nongnu] elpa/buttercup 683614d 018/340: Tests for the describe macro.

[ELPA Syncer]

branch: elpa/buttercup
commit 683614d0276c9d1ea8e9b20e04a30b963bd07a70
Author: Jorgen Schaefer <contact@jorgenschaefer.de>
Commit: Jorgen Schaefer <contact@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