[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/buttercup 8afc407 286/340: Switch from to pcase for spec-d
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/buttercup 8afc407 286/340: Switch from to pcase for spec-done in buttercup-reporter-batch-color |
Date: |
Thu, 16 Dec 2021 14:59:52 -0500 (EST) |
branch: elpa/buttercup
commit 8afc407d513f6b4adcf5e0212f555b89d71e4448
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>
Switch from to pcase for spec-done in buttercup-reporter-batch-color
Completely equivalent to the cond for used.
---
buttercup.el | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/buttercup.el b/buttercup.el
index d010614..eeaf5d3 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1653,25 +1653,25 @@ EVENT and ARG are described in `buttercup-reporter'."
(unless (string-match-p "[\n\v\f]" (buttercup-spec-description arg))
(buttercup-reporter-batch event arg)))
(`spec-done
- (cond
- ((eq (buttercup-spec-status arg) 'passed)
- (buttercup--print (buttercup-colorize "\r%s" 'green)
- (buttercup--indented-description arg)))
- ((eq (buttercup-spec-status arg) 'failed)
- (buttercup--print (buttercup-colorize "\r%s FAILED" 'red)
- (buttercup--indented-description arg))
- (setq buttercup-reporter-batch--failures
- (append buttercup-reporter-batch--failures
- (list arg))))
- ((eq (buttercup-spec-status arg) 'pending)
- (if (equal (buttercup-spec-failure-description arg) "SKIPPED")
- (buttercup--print " %s" (buttercup-spec-failure-description arg))
- (buttercup--print (buttercup-colorize "\r%s %s" 'yellow)
- (buttercup--indented-description arg)
- (buttercup-spec-failure-description arg))))
- (t
- (error "Unknown spec status %s" (buttercup-spec-status arg))))
- (buttercup--print " (%s)\n" (buttercup-elapsed-time-string arg)))
+ (pcase (buttercup-spec-status arg)
+ (`passed
+ (buttercup--print (buttercup-colorize "\r%s" 'green)
+ (buttercup--indented-description arg)))
+ (`failed
+ (buttercup--print (buttercup-colorize "\r%s FAILED" 'red)
+ (buttercup--indented-description arg))
+ (setq buttercup-reporter-batch--failures
+ (append buttercup-reporter-batch--failures
+ (list arg))))
+ (`pending
+ (if (equal (buttercup-spec-failure-description arg) "SKIPPED")
+ (buttercup--print " %s" (buttercup-spec-failure-description arg))
+ (buttercup--print (buttercup-colorize "\r%s %s" 'yellow)
+ (buttercup--indented-description arg)
+ (buttercup-spec-failure-description arg))))
+ (_
+ (error "Unknown spec status %s" (buttercup-spec-status arg))))
+ (buttercup--print " (%s)\n" (buttercup-elapsed-time-string arg)))
(`buttercup-done
(dolist (failed buttercup-reporter-batch--failures)
- [nongnu] elpa/buttercup a019f7a 221/340: Use spy-calls-count as appropriate, (continued)
- [nongnu] elpa/buttercup a019f7a 221/340: Use spy-calls-count as appropriate, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup b297b1d 241/340: Revert "Change: (buttercup-define-matcher-for-binary-function) Add newlines", ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 7903e1a 250/340: Revert "Make it possible to abort test run cleanly", ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 521b71b 253/340: Add tests to ensure pending spec state is not overwritten, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 9265f83 258/340: Add test for buttercup-suites-total-specs-pending, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup b360e35 264/340: test: Add tests for buttercup--mark-skipped, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 9b94921 276/340: test: Add tests for buttercup-reporter-batch buttercup-done handling, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 2040757 277/340: test: Add reporter test for buttercup-started with pending specs, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup a91f282 283/340: Handle multiline spec descriptions in buttercup-reporter-batch-color, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 532d082 284/340: test: Fix tab stops in send-string-to-ansi-buffer for Emacs 24.3, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 8afc407 286/340: Switch from to pcase for spec-done in buttercup-reporter-batch-color,
ELPA Syncer <=
- [nongnu] elpa/buttercup d5c3ed5 289/340: Switch to Github Actions, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 41424d5 292/340: Add new public function buttercup-mark-skipped, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 5752a57 295/340: Control errors from buttercup-run with noerror argument, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 2d77e18 300/340: test: Correct descriptions for some suite-done specs, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup d41c6dc 301/340: Extract buttercup-reporter-batch--print-summary, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 74e74e2 302/340: Extract buttercup-reporter-batch--print-failed-spec-report, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 52f0bec 305/340: Make buttercup-colorize treat nil as no color, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup a8f4cff 311/340: test: Correct descriptions for ERT compatibility specs, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 995a4f1 312/340: Add missing docstrings, correct some other docstrings, ELPA Syncer, 2021/12/16
- [nongnu] elpa/buttercup 110a9b6 314/340: test: Use pretty traceback, ELPA Syncer, 2021/12/16