[nongnu] elpa/buttercup 9265f83 258/340: Add test for buttercup-suites-total-specs-pending

[ELPA Syncer]

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

    Add test for buttercup-suites-total-specs-pending
---
 tests/test-buttercup.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 843a5ea..8d88aa8 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -252,6 +252,23 @@
               :to-equal
               2))))
 
+(describe "The `buttercup-suites-total-specs-pending' function"
+  :var (suites)
+  (before-each
+    (with-local-buttercup
+      (describe "first suite"
+        (it "active test" (expect 1 :to-equal 1))
+        (xit "pending test"))
+      (xdescribe "second suite"
+        (it "forced pending" (expect 1 :to-equal 2)))
+      (describe "third suite"
+        (it "potentially skipped" (expect 1 :to-equal 1)))
+      (setq suites buttercup-suites)))
+  (it "should return the number of pending specs in a list of suites"
+    (with-local-buttercup
+      (expect (buttercup-suites-total-specs-pending suites)
+              :to-equal 2))))
+
 (describe "The `buttercup-suites-total-specs-failed' function"
   (it "should return the number of failed specs in a list of suites"
     (let ((su1 (make-buttercup-suite :description "su1"))