branch: elpa/buttercup
commit 8e29f4cfb03ca52cd43eaa6bf6313f5a795dcb39
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Ola Nilsson <ola.nils...@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.
