[nongnu] elpa/buttercup a1c7bff 101/340: Do not ignore errors when after-each succeeds

[ELPA Syncer]

branch: elpa/buttercup
commit a1c7bff21fa6a3fca9f5dfe2cd2964ffa00924ab
Author: Jorgen Schaefer <cont...@jorgenschaefer.de>
Commit: Jorgen Schaefer <cont...@jorgenschaefer.de>

    Do not ignore errors when after-each succeeds
    
    Fixes #48
---
 buttercup.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index bf79357..6a6d515 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -775,13 +775,17 @@ Do not change the global value.")
                description pending-description))))
     (cond
      ((buttercup-suite-p suite-or-spec)
-      (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))
+      (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
-      (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-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))))))
 
 ;;;;;;;;;;;;;
 ;;; Reporters