Commit 25046d30 authored by Ola Nilsson's avatar Ola Nilsson Committed by Jorgen Schäfer

Rewrite buttercup--update-with-funcall with suite-or-spec functions

parent 2edeae50
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment