[nongnu] elpa/buttercup 5c9f80d 279/340: test: Add color tests for buttercup-suite-started and -done

[ELPA Syncer]

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