branch: elpa/buttercup
commit 5c9f80dc1d77772f7da2268e33b87ab017dcdb35
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Ola Nilsson <ola.nils...@gmail.com>
test: Add color tests for buttercup-suite-started and -done
Use equal-including-properties and use it for both
buttercup-reporter-batch and buttercup-reporter-batch-color.
---
tests/test-buttercup.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 1e058d2..9b5d5b3 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1123,12 +1123,20 @@ text properties using `ansi-color-apply'."
(describe "on the suite-started event"
(it "should emit an indented suite description"
(buttercup-reporter-batch 'suite-started child-suite)
- (expect (buttercup-output) :to-equal " child-suite\n")))
+ (expect (buttercup-output) :to-equal-including-properties "
child-suite\n"))
+
+ (it "should color-print an indented suite description with the default
color"
+ (buttercup-reporter-batch-color 'suite-started child-suite)
+ (expect (buttercup-output) :to-equal-including-properties "
child-suite\n")))
(describe "on the spec-started event"
(it "should emit an indented spec description"
(buttercup-reporter-batch 'spec-started spec)
- (expect (buttercup-output) :to-equal " spec")))
+ (expect (buttercup-output) :to-equal-including-properties " spec"))
+
+ (it "should color-print an indented spec description with the default
color"
+ (buttercup-reporter-batch-color 'spec-started spec)
+ (expect (buttercup-output) :to-equal-including-properties " spec")))
(describe "on the spec-done event"
(it "should print no status tag for a passed spec"
