[nongnu] elpa/buttercup 1fd0d8b 260/340: Set state pending for skipped specs for correct initial count

[ELPA Syncer]

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

    Set state pending for skipped specs for correct initial count
    
    By setting the status field to pending, the initial count printed by
    the reporter will be correct.
---
 buttercup.el            | 3 ++-
 tests/test-buttercup.el | 7 ++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 092deef..6832e4a 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1380,7 +1380,8 @@ SUITES is a list of suites. PATTERNS is a list of 
regexps."
                 (when (string-match p spec-full-name)
                   (cl-return t)))
         (setf (buttercup-spec-function spec)
-              (lambda () (signal 'buttercup-pending "SKIPPED")))))))
+              (lambda () (signal 'buttercup-pending "SKIPPED"))
+              (buttercup-spec-status spec) 'pending)))))
 
 ;;;###autoload
 (defun buttercup-run-markdown-buffer (&rest markdown-buffers)
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 8d88aa8..58a9123 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -267,7 +267,12 @@
   (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))))
+              :to-equal 2)))
+  (it "should also count skipped specs"
+    (with-local-buttercup
+      (buttercup--mark-skipped suites (list "skipped"))
+      (expect (buttercup-suites-total-specs-pending suites)
+              :to-equal 3))))
 
 (describe "The `buttercup-suites-total-specs-failed' function"
   (it "should return the number of failed specs in a list of suites"