procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add test for 'locate-user-emacs-file'

Browse source 
* test/lisp/files-tests.el
(files-test-locate-user-emacs-file): New test.
This commit is contained in:
Stefan Kangas 2025-03-08 12:23:50 +01:00
parent a5f8ce9f1e
commit 9c6e8589ee
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
test/lisp/files-tests.el
View file

@ -37,6 +37,39 @@
(defun files-test-fun1 ()
(setq files-test-result t))
(ert-deftest files-test-locate-user-emacs-file ()
(ert-with-temp-directory home
(with-environment-variables (("HOME" home))
(let* ((user-emacs-directory (expand-file-name ".emacs.d/" home)))
(make-directory user-emacs-directory 'parents)
(should-error (locate-user-emacs-file nil "any-file")
:type 'wrong-type-argument)
;; No file exists.
(should (equal (locate-user-emacs-file "always")
(expand-file-name "always" user-emacs-directory)))
(should (equal (locate-user-emacs-file "always" "never")
(expand-file-name "always" user-emacs-directory)))
;; Only the file in $HOME/.conf exists.
(let ((exists (expand-file-name "exists" home)))
(write-region "data" nil exists nil 'quietly)
(should (equal (locate-user-emacs-file "missing" "exists")
exists)))
;; Only the file in ~/.emacs.d/ exists.
(let ((exists (expand-file-name "exists" user-emacs-directory)))
(write-region "data" nil exists nil 'quietly)
(should (equal (locate-user-emacs-file "exists" "missing")
exists)))
;; Both files exist.
(let* ((basename "testconfig")
(in-home (expand-file-name basename home))
(in-edir (expand-file-name basename user-emacs-directory)))
(write-region "data" nil in-home nil 'quietly)
(write-region "data" nil in-edir nil 'quietly)
(should (equal (locate-user-emacs-file basename)
in-edir))
(should (equal (locate-user-emacs-file basename "anything")
in-edir)))))))
;; Test combinations:
;; `enable-local-variables' t, nil, :safe, :all, or something else.
;; `enable-local-eval' t, nil, or something else.