Make ecukes accept files

emacs-eask · Mar 16, 2024 · dd531a9 · dd531a9
1 parent 5f47b73
commit dd531a9
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 3 deletions.
diff --git a/docs/content/Getting-Started/Commands-and-options/_index.en.md b/docs/content/Getting-Started/Commands-and-options/_index.en.md
@@ -800,7 +800,7 @@ $ eask [GLOBAL-OPTIONS] test buttercup
 Run [ecukes][] tests.
 
 ```sh
-$ eask [GLOBAL-OPTIONS] test ecukes
+$ eask [GLOBAL-OPTIONS] test ecukes [FILES..]
 ```
 
 ## 🔍 eask test melpazoid

diff --git a/docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md b/docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md
@@ -787,7 +787,7 @@ $ eask [GLOBAL-OPTIONS] test buttercup
 運行 [ecukes][] 測試。
 
 ```sh
-$ eask [GLOBAL-OPTIONS] test ecukes
+$ eask [GLOBAL-OPTIONS] test ecukes [FILES..]
 ```
 
 ## 🔍 eask test melpazoid

diff --git a/lisp/test/ecukes.el b/lisp/test/ecukes.el
@@ -6,6 +6,11 @@
 ;;
 ;;   $ eask ecukes
 ;;
+;;
+;;  Positionals:
+;;
+;;    [files..]     specify feature files to do ecukes tests
+;;
 
 ;;; Code:
 
@@ -14,13 +19,34 @@
                           (locate-dominating-file dir "_prepare.el"))
         nil t))
 
+(defun eask-test-ecukes--run (files)
+  "Run ecukes on FILES.
+
+Modified from function `ecukes-cli/run'."
+  (ecukes-load)
+  (ecukes-reporter-use ecukes-cli-reporter)
+  (ecukes-run files))
+
 (eask-start
   ;; Preparation
   (eask-with-archives '("gnu" "melpa")
     (eask-package-install 'ecukes))
 
   ;; Start Testing
   (require 'ecukes)
-  (ecukes))
+  (let* ((patterns (eask-args))
+         (files (eask-expand-file-specs patterns)))
+    (cond
+     ;; Files found, do the action!
+     (files
+      (eask-test-ecukes--run files))
+     ;; Pattern defined, but no file found!
+     (patterns
+      (eask-msg "")
+      (eask-info "(No files match wildcard: %s)"
+                 (mapconcat #'identity patterns " ")))
+     ;; Run default action.
+     (t
+      (ecukes)))))
 
 ;;; test/ecukes.el ends here