[nongnu] elpa/buttercup 25046d3 160/340: Rewrite buttercup--update-with-funcall with suite-or-spec functions

[ELPA Syncer]

branch: elpa/buttercup
commit 25046d30f112934aaa640c608da7b70f2aa3e587
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Jorgen Schäfer <Jorgen.Schaefer@gmail.com>

    Rewrite buttercup--update-with-funcall with suite-or-spec functions
---
 buttercup.el | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 9193ed3..6b949b8 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1364,19 +1364,11 @@ Do not change the global value.")
         (`(error (buttercup-pending . ,pending-description))
          (setq status 'pending
                description pending-description))))
-    (cond
-     ((buttercup-suite-p suite-or-spec)
-      (when (eq (buttercup-suite-status suite-or-spec)
-                'passed)
-        (setf (buttercup-suite-status suite-or-spec) status)
-        (setf (buttercup-suite-failure-description suite-or-spec) description)
-        (setf (buttercup-suite-failure-stack suite-or-spec) stack)))
-     (t
-      (when (eq (buttercup-spec-status suite-or-spec)
-                'passed)
-        (setf (buttercup-spec-status suite-or-spec) status)
-        (setf (buttercup-spec-failure-description suite-or-spec) description)
-        (setf (buttercup-spec-failure-stack suite-or-spec) stack))))))
+    (when (eq (buttercup-suite-or-spec-status suite-or-spec)
+              'passed)
+      (setf (buttercup-suite-or-spec-status suite-or-spec) status
+            (buttercup-suite-or-spec-failure-description suite-or-spec) 
description
+            (buttercup-suite-or-spec-failure-stack suite-or-spec) stack))))
 
 ;;;;;;;;;;;;;
 ;;; Reporters