diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2017-08-06 22:16:56 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2017-08-06 22:16:56 +0900 |
| commit | b1b99edd3ee587a5154106d4d16547eac4916c55 (patch) | |
| tree | 7da3ba0609c86e6e174cf917090488ca0e30c7c0 /test/lisp/dired-tests.el | |
| parent | e7aabd8b1ced130c8bf5abecf2fa14b962a9b012 (diff) | |
| download | emacs-b1b99edd3ee587a5154106d4d16547eac4916c55.tar.gz emacs-b1b99edd3ee587a5154106d4d16547eac4916c55.tar.bz2 emacs-b1b99edd3ee587a5154106d4d16547eac4916c55.zip | |
Minor tweak in a dired test
* test/lisp/dired-tests.el (dired-test-bug27968):
Ensure the new header has different length than the original one.
Diffstat (limited to 'test/lisp/dired-tests.el')
| -rw-r--r-- | test/lisp/dired-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 105a79f0014..981afdd929e 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -333,9 +333,13 @@ (save-excursion (goto-char 1) (forward-line 1) - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t) + (new-header " test-bug27968")) (delete-region (point) (point-at-eol)) - (insert " test-bug27968"))) + (when (= orig-len (length new-header)) + ;; Wow lucky guy! I must buy lottery today. + (setq new-header (concat new-header " :-)"))) + (insert new-header))) (setq len (funcall header-len-fn) diff (- len orig-len)) (should-not (zerop diff)) ; Header length has changed. |