branch: elpa/buttercup
commit 25046d30f112934aaa640c608da7b70f2aa3e587
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Jorgen Schäfer <jorgen.schae...@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
