[nongnu] elpa/buttercup 2040757 277/340: test: Add reporter test for buttercup-started with pending specs

[ELPA Syncer]

branch: elpa/buttercup
commit 2040757c3c55a2c2abfdd517b2360cd9ced456c2
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    test: Add reporter test for buttercup-started with pending specs
---
 tests/test-buttercup.el | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index c2d6c0b..66061b6 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1088,11 +1088,24 @@ text properties using `ansi-color-apply'."
       (setq print-buffer nil))
 
     (describe "on the buttercup-started event"
+      :var (skipped
+            ;; Local var for testing. The real variable is used by the
+            ;; reporter attached to the buttercup instance running
+            ;; these tests.
+            buttercup-reporter-batch--start-time)
+      (before-each
+        (setq skipped (make-buttercup-spec :description "skipped" :status 
'pending)))
+
       (it "should print the number of specs"
-        (let ((buttercup-reporter-batch--start-time nil)
-              (buttercup-reporter-batch--failures nil))
+        (let ((buttercup-reporter-batch--failures nil))
+          (buttercup-reporter-batch 'buttercup-started (list parent-suite)))
+        (expect (buttercup-output) :to-equal "Running 1 specs.\n\n"))
+
+      (it "should print the number of skipped specs"
+        (let ((buttercup-reporter-batch--failures nil))
+          (buttercup-suite-add-child child-suite skipped)
           (buttercup-reporter-batch 'buttercup-started (list parent-suite)))
-        (expect (buttercup-output) :to-equal "Running 1 specs.\n\n")))
+        (expect (buttercup-output) :to-equal "Running 1 out of 2 specs.\n\n")))
 
     (describe "on the suite-started event"
       (it "should emit an indented suite description"