+22
-1
lines changedFilter options
+22
-1
lines changed Original file line number Diff line number Diff line change
@@ -4,7 +4,12 @@
4 4
;;
5 5
;; Command to run ert tests using ert-runner,
6 6
;;
7 -
;; $ eask ert-runner
7 +
;; $ eask ert-runner [files..]
8 +
;;
9 +
;;
10 +
;; Positionals:
11 +
;;
12 +
;; [files..] specify files to run ert tests
8 13
;;
9 14 10 15
;;; Code:
@@ -20,9 +25,25 @@
20 25
(when (eask-reach-verbosity-p 'debug)
21 26
(setq ert-runner-verbose t))))
22 27 28 +
(defun eask-test-ert-runner--run (fnc &rest args)
29 +
"Run around function `ert-runner/run'.
30 + 31 +
Arguments FNC and ARGS are used for advice `:around'.
32 + 33 +
Handle the argument ARGS when command arguments are specified."
34 +
(let* ((patterns (eask-args))
35 +
(files (eask-expand-file-specs patterns)))
36 +
(setq args files))
37 +
(apply fnc args))
38 + 39 +
(advice-add 'ert-runner/run :around #'eask-test-ert-runner--run)
40 + 23 41
(eask-start
42 +
;; Preparation
24 43
(eask-archive-install-packages '("gnu" "melpa")
25 44
'ert-runner)
45 + 46 +
;; Start Testing
26 47
(require 'ert-runner))
27 48 28 49
;;; test/ert-runner.el ends here
You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4