summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2019-04-17 11:54:17 +0200
committerMichael Albinus <michael.albinus@gmx.de>2019-04-17 11:54:17 +0200
commit48a6a3ac028181dbe32f6619982539adb0cd9a6a (patch)
tree98fb1983288ff40b90796c8ff7d115b5c3d8382d
parent7e07bb2d2911f1a1dd3696227187501d7b7278a9 (diff)
downloademacs-48a6a3ac028181dbe32f6619982539adb0cd9a6a.tar.gz
* test/lisp/files-tests.el: Unify test names
* test/lisp/files-tests.el (files-tests-local-variables) (files-tests-bug-18141, files-tests-make-temp-file-empty-prefix) (files-tests-bug-21454) (files-tests-save-buffers-kill-emacs--confirm-kill-processes) (files-tests-read-file-in-~) (files-tests-file-name-non-special--subprocess) (files-tests-file-name-non-special--buffers) (files-tests-insert-directory-wildcard-in-dir-p) (files-tests-make-directory, files-tests-no-file-write-contents) (files-tests-copy-directory, files-tests-abbreviated-home-dir): Unify test names.
-rw-r--r--test/lisp/files-tests.el26
1 files changed, 13 insertions, 13 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 57d8363ef9c..13e8bb4943c 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -137,7 +137,7 @@ form.")
(hack-local-variables)
(eval (nth 2 test-settings)))))
-(ert-deftest files-test-local-variables ()
+(ert-deftest files-tests-local-variables ()
"Test the file-local variables implementation."
(cl-letf (((symbol-function 'hack-local-variables-confirm)
(lambda (&rest _)
@@ -154,7 +154,7 @@ form.")
(expand-file-name "data/files-bug18141.el.gz" (getenv "EMACS_TEST_DIRECTORY"))
"Test file for bug#18141.")
-(ert-deftest files-test-bug-18141 ()
+(ert-deftest files-tests-bug-18141 ()
"Test for https://debbugs.gnu.org/18141 ."
(skip-unless (executable-find "gzip"))
;; If called interactively, environment variable
@@ -170,7 +170,7 @@ form.")
(should (eq buffer-file-coding-system 'iso-2022-7bit-unix))))
(delete-file tempfile))))
-(ert-deftest files-test-make-temp-file-empty-prefix ()
+(ert-deftest files-tests-make-temp-file-empty-prefix ()
"Test make-temp-file with an empty prefix."
(let ((tempfile (make-temp-file ""))
(tempdir (make-temp-file "" t))
@@ -188,7 +188,7 @@ form.")
;; Stop the above "Local Var..." confusing Emacs.
-(ert-deftest files-test-bug-21454 ()
+(ert-deftest files-tests-bug-21454 ()
"Test for https://debbugs.gnu.org/21454 ."
:expected-result :failed
(let ((input-result
@@ -216,7 +216,7 @@ form.")
(setenv "FOO" foo-env)
(setenv "BAR" bar-env))))
-(ert-deftest files-test--save-buffers-kill-emacs--confirm-kill-processes ()
+(ert-deftest files-tests-save-buffers-kill-emacs--confirm-kill-processes ()
"Test that `save-buffers-kill-emacs' honors
`confirm-kill-processes'."
(cl-letf* ((yes-or-no-p-prompts nil)
@@ -239,7 +239,7 @@ form.")
(should-not yes-or-no-p-prompts)
(should (equal kill-emacs-args '(nil)))))
-(ert-deftest files-test-read-file-in-~ ()
+(ert-deftest files-tests-read-file-in-~ ()
"Test file prompting in directory named '~'.
If we are in a directory named '~', the default value should not
be $HOME."
@@ -278,7 +278,7 @@ be $HOME."
(file-name-unquote
(file-name-unquote temporary-file-directory))))))
-(ert-deftest files-tests--file-name-non-special--subprocess ()
+(ert-deftest files-tests-file-name-non-special--subprocess ()
"Check that Bug#25949 is fixed."
(skip-unless (executable-find "true"))
(let ((default-directory (file-name-quote temporary-file-directory)))
@@ -306,7 +306,7 @@ be $HOME."
(progn ,@body)
(delete-file ,name))))
-(ert-deftest files-tests--file-name-non-special--buffers ()
+(ert-deftest files-tests-file-name-non-special--buffers ()
"Check that Bug#25951 is fixed.
We call `verify-visited-file-modtime' on a buffer visiting a file
with a quoted name. We use two different variants: first with
@@ -1119,7 +1119,7 @@ works as expected if the default directory is quoted."
:command (list program "--version")
:file-handler t)))))
-(ert-deftest files-tests--insert-directory-wildcard-in-dir-p ()
+(ert-deftest files-tests-insert-directory-wildcard-in-dir-p ()
(let ((alist (list (cons "/home/user/*/.txt" (cons "/home/user/" "*/.txt"))
(cons "/home/user/.txt" nil)
(cons "/home/*/.txt" (cons "/home/" "*/.txt"))
@@ -1136,7 +1136,7 @@ works as expected if the default directory is quoted."
(cdr path-res)
(insert-directory-wildcard-in-dir-p (car path-res)))))))
-(ert-deftest files-tests--make-directory ()
+(ert-deftest files-tests-make-directory ()
(let* ((dir (make-temp-file "files-mkdir-test" t))
(dirname (file-name-as-directory dir))
(file (concat dirname "file"))
@@ -1158,7 +1158,7 @@ works as expected if the default directory is quoted."
(should-not (make-directory a/b t))
(delete-directory dir 'recursive)))
-(ert-deftest files-test-no-file-write-contents ()
+(ert-deftest files-tests-no-file-write-contents ()
"Test that `write-contents-functions' permits saving a file.
Usually `basic-save-buffer' will prompt for a file name if the
current buffer has none. It should first call the functions in
@@ -1187,7 +1187,7 @@ name (Bug#28412)."
(should (null (save-buffer)))
(should (eq (buffer-size) 1))))))
-(ert-deftest files-tests--copy-directory ()
+(ert-deftest files-tests-copy-directory ()
(let* ((dir (make-temp-file "files-mkdir-test" t))
(dirname (file-name-as-directory dir))
(source (concat dirname "source"))
@@ -1204,7 +1204,7 @@ name (Bug#28412)."
(should (file-directory-p (concat (file-name-as-directory dest2) "a")))
(delete-directory dir 'recursive)))
-(ert-deftest files-test-abbreviated-home-dir ()
+(ert-deftest files-tests-abbreviated-home-dir ()
"Test that changing HOME does not confuse `abbreviate-file-name'.
See <https://debbugs.gnu.org/19657#20>."
(let* ((homedir temporary-file-directory)