diff options
| author | Axel Forsman <axel@axelf.se> | 2023-08-08 21:56:53 +0200 |
|---|---|---|
| committer | Tom Dalziel <tom_dl@hotmail.com> | 2023-08-20 23:46:23 +0100 |
| commit | 1c4c3bfff8987aa498d6bb8bd88e2e4ba9615ab9 (patch) | |
| tree | 9f827e8ae63cd57f2e842d07c63bbd3c8b1e00b1 /evil-tests.el | |
| parent | a9a9c65b5d0777048c4e8a66fcc06032e3dafc18 (diff) | |
Some cleanups
Diffstat (limited to 'evil-tests.el')
| -rw-r--r-- | evil-tests.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/evil-tests.el b/evil-tests.el index cacc1b5..b1b3f79 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -85,22 +85,21 @@ (defun evil-tests-initialize (&optional tests profiler interactive) (setq profiler (or profiler evil-tests-profiler)) - (when (listp profiler) + (when (consp profiler) (setq profiler (car profiler))) (when profiler (setq evil-tests-profiler t) (setq profiler - (or (cdr (assq profiler - '((call . elp-sort-by-call-count) - (average . elp-sort-by-average-time) - (total . elp-sort-by-total-time)))))) + (cdr (assq profiler + '((call . elp-sort-by-call-count) + (average . elp-sort-by-average-time) + (total . elp-sort-by-total-time))))) (setq elp-sort-by-function (or profiler 'elp-sort-by-call-count)) (elp-instrument-package "evil")) (if interactive (if (y-or-n-p-with-timeout "Run tests? " 2 t) (evil-tests-run tests interactive) - (message "You can run the tests at any time \ -with `M-x evil-tests-run'")) + (message "You can run the tests at any time with `M-x evil-tests-run'")) (evil-tests-run tests))) (defun evil-tests-run (&optional tests interactive) |