diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2016-10-08 13:42:33 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2016-10-08 13:42:33 +0300 |
commit | 167a708e2803426b0b60cde9d4dd31a7cd1a530d (patch) | |
tree | 43214f549724c608f550fd0b23663c2959c44410 /cider-test.el | |
parent | d666aba1b65ebd5d85112d5dad601cbac64c1758 (diff) |
Rename cider-test-rerun-tests to cider-test-rerun-failed-tests
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/cider-test.el b/cider-test.el index 08f99c05..3bf9fdae 100644 --- a/cider-test.el +++ b/cider-test.el @@ -120,14 +120,14 @@ (defvar cider-test-commands-map (let ((map (define-prefix-command 'cider-test-commands-map))) ;; Duplicates of keys below with C- for convenience - (define-key map (kbd "C-r") #'cider-test-rerun-tests) + (define-key map (kbd "C-r") #'cider-test-rerun-failed-tests) (define-key map (kbd "C-t") #'cider-test-run-test) (define-key map (kbd "C-n") #'cider-test-run-ns-tests) (define-key map (kbd "C-l") #'cider-test-run-loaded-tests) (define-key map (kbd "C-p") #'cider-test-run-project-tests) (define-key map (kbd "C-b") #'cider-test-show-report) ;; Single-key bindings defined last for display in menu - (define-key map (kbd "r") #'cider-test-rerun-tests) + (define-key map (kbd "r") #'cider-test-rerun-failed-tests) (define-key map (kbd "t") #'cider-test-run-test) (define-key map (kbd "n") #'cider-test-run-ns-tests) (define-key map (kbd "l") #'cider-test-run-loaded-tests) @@ -145,7 +145,7 @@ :style toggle :selected cider-auto-test-mode] "--" ["Interrupt running tests" cider-interrupt] - ["Rerun failed/erring tests" cider-test-rerun-tests] + ["Rerun failed/erring tests" cider-test-rerun-failed-tests] ["Show test report" cider-test-show-report] "--" ["Configure testing" (customize-group 'cider-test)]) @@ -165,7 +165,7 @@ (define-key map (kbd "d") #'cider-test-ediff) (define-key map (kbd "e") #'cider-test-stacktrace) ;; `f' for "run failed". - (define-key map "f" #'cider-test-rerun-tests) + (define-key map "f" #'cider-test-rerun-failed-tests) (define-key map "l" #'cider-test-run-loaded-tests) (define-key map "p" #'cider-test-run-project-tests) ;; `g' generally reloads the buffer. The closest thing we have to that is @@ -180,7 +180,7 @@ ["Next result" cider-test-next-result] "--" ["Rerun current test" cider-test-run-test] - ["Rerun failed/erring tests" cider-test-rerun-tests] + ["Rerun failed/erring tests" cider-test-rerun-failed-tests] ["Run all loaded tests" cider-test-run-loaded-tests] ["Run all project tests" cider-test-run-project-tests] "--" @@ -610,7 +610,7 @@ If SILENT is non-nil, suppress all messages other then test results." conn)) :clj)) -(defun cider-test-rerun-tests () +(defun cider-test-rerun-failed-tests () "Rerun failed and erring tests from the last test run." (interactive) (if cider-test-last-summary @@ -644,7 +644,7 @@ current ns." (if (eq major-mode 'cider-test-report-mode) (when (y-or-n-p (concat "Test report does not define a namespace. " "Rerun failed/erring tests?")) - (cider-test-rerun-tests)) + (cider-test-rerun-failed-tests)) (unless silent (message "No namespace to test in current context"))))) |