[nongnu] elpa/buttercup d563e18 281/340: test: Add color tests for suite-done

[ELPA Syncer]

branch: elpa/buttercup
commit d563e18d6f116fa99b700fbb9c65e47faf7690ce
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@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))