diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-03-28 09:40:45 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-03-28 09:44:24 -0400 |
| commit | 7d27f5d8f48b8f184eb93f64461e01c1481c8fb4 (patch) | |
| tree | bf8044b5f9f039b0ef20baa02b5d09df569f0261 /lisp/emacs-lisp | |
| parent | 969fad4068e44ae2de7632dd656c8013bb60c566 (diff) | |
| download | emacs-7d27f5d8f48b8f184eb93f64461e01c1481c8fb4.tar.gz emacs-7d27f5d8f48b8f184eb93f64461e01c1481c8fb4.tar.bz2 emacs-7d27f5d8f48b8f184eb93f64461e01c1481c8fb4.zip | |
* lisp/emacs-lisp/ert.el (ert-run-tests): Make INTERACTIVE arg optional.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 611c67311bc..e7387e463cb 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1236,7 +1236,7 @@ SELECTOR is the selector that was used to select TESTS." (funcall listener 'test-ended stats test result)) (setf (ert--stats-current-test stats) nil)))) -(defun ert-run-tests (selector listener interactively) +(defun ert-run-tests (selector listener &optional interactively) "Run the tests specified by SELECTOR, sending progress updates to LISTENER." (let* ((tests (ert-select-tests selector t)) (stats (ert--make-stats tests selector))) |