diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-09-26 01:53:56 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-09-26 17:53:23 +0200 |
commit | 8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b (patch) | |
tree | 6daad156b285e27c95d4afb3f7d0e4773032961b /test/src/fileio-tests.el | |
parent | 4cc43449432427817400bad12e7ef722e6591a21 (diff) | |
download | emacs-8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b.tar.gz |
; Minor stylistic checkdoc fixes in test/**/*.el
Diffstat (limited to 'test/src/fileio-tests.el')
-rw-r--r-- | test/src/fileio-tests.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 438ebebb769..4143503aa18 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el @@ -17,6 +17,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;;; Code: + (require 'ert) (defun try-link (target link) @@ -97,7 +99,7 @@ Also check that an encoding error can appear in a symlink." (should (equal (file-name-as-directory "D:/abc//") "d:/abc//"))) (ert-deftest fileio-tests--relative-HOME () - "Test that expand-file-name works even when HOME is relative." + "Test that `expand-file-name' works even when HOME is relative." (let ((process-environment (copy-sequence process-environment))) (setenv "HOME" "a/b/c") (should (equal (expand-file-name "~/foo") @@ -128,7 +130,7 @@ Also check that an encoding error can appear in a symlink." (if f (delete-file f))))) (ert-deftest fileio-tests--relative-default-directory () - "Test expand-file-name when default-directory is relative." + "Test `expand-file-name' when `default-directory' is relative." (let ((default-directory "some/relative/name")) (should (file-name-absolute-p (expand-file-name "foo")))) (let* ((default-directory "~foo") @@ -137,7 +139,7 @@ Also check that an encoding error can appear in a symlink." (not (eq (aref name 0) ?~)))))) (ert-deftest fileio-test--expand-file-name-null-bytes () - "Test that expand-file-name checks for null bytes in filenames." + "Test that `expand-file-name' checks for null bytes in filenames." (should-error (expand-file-name (concat "file" (char-to-string ?\0) ".txt")) :type 'wrong-type-argument) (should-error (expand-file-name "file.txt" (concat "dir" (char-to-string ?\0))) @@ -146,7 +148,7 @@ Also check that an encoding error can appear in a symlink." (should-error (expand-file-name "file.txt") :type 'wrong-type-argument))) (ert-deftest fileio-tests--file-name-absolute-p () - "Test file-name-absolute-p." + "Test `file-name-absolute-p'." (dolist (suffix '("" "/" "//" "/foo" "/foo/" "/foo//" "/foo/bar")) (unless (string-equal suffix "") (should (file-name-absolute-p suffix))) @@ -157,7 +159,7 @@ Also check that an encoding error can appear in a symlink." (should (not (file-name-absolute-p (concat "~nosuchuser" suffix))))))) (ert-deftest fileio-tests--circular-after-insert-file-functions () - "Test after-insert-file-functions as a circular list." + "Test `after-insert-file-functions' as a circular list." (let ((f (make-temp-file "fileio")) (after-insert-file-functions (list 'identity))) (setcdr after-insert-file-functions after-insert-file-functions) |