[nongnu] elpa/buttercup 50c7fc2 297/340: Switch to pcase in spec-done case of buttercup-reporter-batch

[ELPA Syncer]

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

    Switch to pcase in spec-done case of buttercup-reporter-batch
---
 buttercup.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 4109a2b..dbfb21b 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1620,17 +1620,17 @@ EVENT and ARG are described in `buttercup-reporter'."
       (`spec-started
          (buttercup--print "%s" (buttercup--indented-description arg)))
       (`spec-done
-       (cond
-        ((eq (buttercup-spec-status arg) 'passed)) ; do nothing
-        ((eq (buttercup-spec-status arg) 'failed)
-         (buttercup--print "  FAILED")
-         (setq buttercup-reporter-batch--failures
-               (append buttercup-reporter-batch--failures
-                       (list arg))))
-        ((eq (buttercup-spec-status arg) 'pending)
-         (buttercup--print "  %s" (buttercup-spec-failure-description arg)))
-        (t
-         (error "Unknown spec status %s" (buttercup-spec-status arg))))
+       (pcase (buttercup-spec-status arg)
+         (`passed) ; do nothing
+         (`failed
+          (buttercup--print "  FAILED")
+          (setq buttercup-reporter-batch--failures
+                (append buttercup-reporter-batch--failures
+                        (list arg))))
+         (`pending
+          (buttercup--print "  %s" (buttercup-spec-failure-description arg)))
+         (_
+          (error "Unknown spec status %s" (buttercup-spec-status arg))))
        (buttercup--print " (%s)\n" (buttercup-elapsed-time-string arg)))
 
       (`suite-done