diff options
| author | Glenn Morris | 2017-05-29 17:50:36 -0700 |
|---|---|---|
| committer | Glenn Morris | 2017-05-29 17:50:36 -0700 |
| commit | 941a2e7347e3a0d393e67872e6151be8cc66d9a2 (patch) | |
| tree | 12f61130fd1664808c584d79c27a8c5288fb96dd /test | |
| parent | 2a22a65fe1fd7f75480f6dcfe404b5ce43a2b821 (diff) | |
| download | emacs-941a2e7347e3a0d393e67872e6151be8cc66d9a2.tar.gz emacs-941a2e7347e3a0d393e67872e6151be8cc66d9a2.zip | |
todo-mode: don't assume an ordering of tests
* test/lisp/calendar/todo-mode-tests.el (todo-test-todo-quit02)
(todo-test-item-highlighting): Avoid prompting for input file.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calendar/todo-mode-tests.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/test/lisp/calendar/todo-mode-tests.el b/test/lisp/calendar/todo-mode-tests.el index 70e355ef027..a0d5f01617c 100644 --- a/test/lisp/calendar/todo-mode-tests.el +++ b/test/lisp/calendar/todo-mode-tests.el | |||
| @@ -5,18 +5,20 @@ | |||
| 5 | ;; Author: Stephen Berman <stephen.berman@gmx.net> | 5 | ;; Author: Stephen Berman <stephen.berman@gmx.net> |
| 6 | ;; Keywords: calendar | 6 | ;; Keywords: calendar |
| 7 | 7 | ||
| 8 | ;; This program is free software; you can redistribute it and/or modify | 8 | ;; This file is part of GNU Emacs. |
| 9 | |||
| 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 9 | ;; it under the terms of the GNU General Public License as published by | 11 | ;; it under the terms of the GNU General Public License as published by |
| 10 | ;; the Free Software Foundation, either version 3 of the License, or | 12 | ;; the Free Software Foundation, either version 3 of the License, or |
| 11 | ;; (at your option) any later version. | 13 | ;; (at your option) any later version. |
| 12 | 14 | ||
| 13 | ;; This program is distributed in the hope that it will be useful, | 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| 14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 16 | ;; GNU General Public License for more details. | 18 | ;; GNU General Public License for more details. |
| 17 | 19 | ||
| 18 | ;; You should have received a copy of the GNU General Public License | 20 | ;; You should have received a copy of the GNU General Public License |
| 19 | ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 20 | 22 | ||
| 21 | ;;; Commentary: | 23 | ;;; Commentary: |
| 22 | 24 | ||
| @@ -93,6 +95,7 @@ current again." | |||
| 93 | If the buffer made current by invoking todo-quit in a todo-mode | 95 | If the buffer made current by invoking todo-quit in a todo-mode |
| 94 | buffer is buried by quit-window, the todo-mode buffer should not | 96 | buffer is buried by quit-window, the todo-mode buffer should not |
| 95 | become current." | 97 | become current." |
| 98 | (todo-test-get-archive 2) | ||
| 96 | (todo-show) | 99 | (todo-show) |
| 97 | (should (todo-test-is-current-buffer todo-test-file-1)) | 100 | (should (todo-test-is-current-buffer todo-test-file-1)) |
| 98 | (let ((dir (dired default-directory))) | 101 | (let ((dir (dired default-directory))) |
| @@ -105,6 +108,7 @@ become current." | |||
| 105 | (ert-deftest todo-test-item-highlighting () ; bug#27133 | 108 | (ert-deftest todo-test-item-highlighting () ; bug#27133 |
| 106 | "Test whether `todo-toggle-item-highlighting' highlights whole item. | 109 | "Test whether `todo-toggle-item-highlighting' highlights whole item. |
| 107 | In particular, all lines of a multiline item should be highlighted." | 110 | In particular, all lines of a multiline item should be highlighted." |
| 111 | (todo-test-get-archive 2) | ||
| 108 | (todo-show) | 112 | (todo-show) |
| 109 | (todo-jump-to-category nil "testcat1") ; For test rerun. | 113 | (todo-jump-to-category nil "testcat1") ; For test rerun. |
| 110 | (todo-toggle-item-highlighting) | 114 | (todo-toggle-item-highlighting) |