[nongnu] elpa/buttercup c59110b 291/340: test: Extend with-local-buttercup with some key arguments

[ELPA Syncer]

branch: elpa/buttercup
commit c59110b927940ec96db8f4c2ff4b494e18f88ce6
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    test: Extend with-local-buttercup with some key arguments
    
    New key arguments :color, :suites, and :reporter can be used to
    overridde buttercup-color, buttersup-suites, and buttercup-reporter
    respectively.
    
    Allows code like
    
    (with-local-buttercup :color t
       ...)
    
    instead of
    
    (with-local-buttercup
      (let ((buttercup-color t)))
        ...)
---
 tests/test-buttercup.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index cb472d3..076978d 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -36,8 +36,15 @@
           items))
 
 (defmacro with-local-buttercup (&rest body)
-  "Execute BODY with local buttercup state variables."
+  "Execute BODY with local buttercup state variables.
+Keyword arguments kan be used to override the values of `buttercup-KEY'.
+\n(fn &keys COLOR SUITES REPORTER &rest BODY)"
   (declare (debug t) (indent defun))
+  ;; extract keyword arguments
+  (let ((keys '(:color buttercup-color :suites buttercup-suites :reporter 
buttercup-reporter))
+        extra-vars)
+    (while (plist-member keys (car body))
+      (push (list (plist-get keys (pop body)) (pop body)) extra-vars))
   `(let (buttercup--after-all
          buttercup--after-each
          buttercup--before-all
@@ -46,8 +53,9 @@
          buttercup--current-suite
          (buttercup-reporter #'ignore)
          buttercup-suites
-         (buttercup-warning-buffer-name " *ignored buttercup warnings*"))
-     ,@body))
+         (buttercup-warning-buffer-name " *ignored buttercup warnings*")
+         ,@(nreverse extra-vars))
+     ,@body)))
 
 (defun send-string-to-ansi-buffer (buffer string)
   "A `send-string-to-terminal' variant that sends STRING to BUFFER.