[nongnu] elpa/buttercup 8e29f4c 259/340: Extract buttercup--mark-skipped from buttercup-run-discover

[ELPA Syncer]

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

    Extract buttercup--mark-skipped from buttercup-run-discover
---
 buttercup.el | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 4c2746b..092deef 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1368,15 +1368,20 @@ current directory."
         (when (not (string-match "\\(^\\|/\\)\\." (file-relative-name file)))
           (load file nil t))))
     (when patterns
-      (dolist (spec (buttercup--specs buttercup-suites))
-        (let ((spec-full-name (buttercup-spec-full-name spec)))
-          (unless (cl-dolist (p patterns)
-                    (when (string-match p spec-full-name)
-                      (cl-return t)))
-            (setf (buttercup-spec-function spec)
-                  (lambda () (signal 'buttercup-pending "SKIPPED")))))))
+      (buttercup--mark-skipped buttercup-suites patterns))
     (buttercup-run)))
 
+(defun buttercup--mark-skipped (suites patterns)
+  "Mark any spec in SUITES not matching PATTERNS as skipped.
+SUITES is a list of suites. PATTERNS is a list of regexps."
+  (dolist (spec (buttercup--specs suites))
+    (let ((spec-full-name (buttercup-spec-full-name spec)))
+      (unless (cl-dolist (p patterns)
+                (when (string-match p spec-full-name)
+                  (cl-return t)))
+        (setf (buttercup-spec-function spec)
+              (lambda () (signal 'buttercup-pending "SKIPPED")))))))
+
 ;;;###autoload
 (defun buttercup-run-markdown-buffer (&rest markdown-buffers)
   "Run all test suites defined in MARKDOWN-BUFFERS.