hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-04 17:01:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix UT.

Browse source
This commit is contained in:
Vincent Zhang 2021-08-24 18:20:31 +08:00
parent 5f308333a2
commit 36609a9136
2 changed files with 9 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Cask
View file

@ -7,4 +7,6 @@
(files "*.el")
(development
(depends-on "ert-runner"))
(depends-on "ert-runner")
(depends-on "projectile")
(depends-on "find-file-in-project"))

17
test/doom-modeline-core-test.el
View file

@ -62,7 +62,6 @@
(ert-deftest doom-modeline-project-root/auto ()
(let ((default-directory "/home/user/project/")
(doom-modeline-project-detection 'auto)
(doom-modeline--project-detected-p t)
(doom-modeline--project-root nil))
(cl-flet ((project-current (&optional _maybe-prompt _dir)
`(vc . ,default-directory)))
@ -71,33 +70,29 @@
(ert-deftest doom-modeline-project-root/ffip ()
(let ((default-directory "/home/user/project-ffip/")
(doom-modeline-project-detection 'ffip)
(doom-modeline--project-detected-p t)
(doom-modeline--project-root nil))
(cl-flet ((ffip-get-project-root-directory () "/home/user/project-ffip/"))
(should (string= (doom-modeline-project-root) "/home/user/project-ffip/")))))
(cl-flet ((ffip-get-project-root-directory () default-directory))
(should (string= (doom-modeline-project-root) default-directory)))))
(ert-deftest doom-modeline-project-root/projectile ()
(let ((default-directory "/home/user/projectile/")
(doom-modeline-project-detection 'projectile)
(doom-modeline--project-detected-p t)
(doom-modeline--project-root nil))
(cl-flet ((projectile-project-root () default-directory))
(should (string= (doom-modeline-project-root) "/home/user/projectile/")))))
(should (string= (doom-modeline-project-root) default-directory)))))
(ert-deftest doom-modeline-project-root/project ()
(let ((default-directory "/home/user/project-current/")
(doom-modeline-project-detection 'project)
(doom-modeline--project-detected-p t)
(doom-modeline--project-root nil))
(cl-flet ((project-current (&optional _maybe-prompt _dir)
`(vc . ,default-directory)))
(should (string= (doom-modeline-project-root) "/home/user/project-current/")))))
(should (string= (doom-modeline-project-root) default-directory)))))
(ert-deftest doom-modeline-project-root/default ()
(let ((default-directory "/home/user/project/")
(doom-modeline-project-detection nil)
(doom-modeline--project-detected-p t))
(should (string= (doom-modeline-project-root) "/home/user/project/"))))
(doom-modeline-project-detection nil))
(should (string= (doom-modeline-project-root) default-directory))))
(ert-deftest doom-modeline-buffer-file-name/invalid ()
:expected-result :failed