branch: elpa/buttercup
commit d563e18d6f116fa99b700fbb9c65e47faf7690ce
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Ola Nilsson <ola.nils...@gmail.com>
test: Add color tests for suite-done
---
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 e32e908..29ecf12 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1215,11 +1215,19 @@ text properties using `ansi-color-apply'."
(describe "on the suite-done event"
(it "should emit a newline at the end of the top-level suite"
(buttercup-reporter-batch 'suite-done parent-suite)
- (expect (buttercup-output) :to-equal "\n"))
+ (expect (buttercup-output) :to-equal-including-properties "\n"))
+
+ (it "should color-print a newline at the end of the top-level suite"
+ (buttercup-reporter-batch-color 'suite-done parent-suite)
+ (expect (buttercup-output) :to-equal-including-properties "\n"))
(it "should not emit anything at the end of other suites"
(buttercup-reporter-batch 'suite-done child-suite)
- (expect (buttercup-output) :to-equal "")))
+ (expect (buttercup-output) :to-equal-including-properties ""))
+
+ (it "should not color-print anything at the end of other suites"
+ (buttercup-reporter-batch-color 'suite-done child-suite)
+ (expect (buttercup-output) :to-equal-including-properties "")))
(describe "on the buttercup-done event"
:var ((buttercup-reporter-batch--start-time (current-time))
