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

Fix UT issue.

Browse source
This commit is contained in:
Vincent Zhang 2021-07-22 17:55:00 +08:00
parent 51af51d248
commit d0b8dea080
1 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -37,26 +37,29 @@
(ert-deftest doom-modeline-icon/octicon-icon () (ert-deftest doom-modeline-icon/octicon-icon ()
(let ((doom-modeline-icon t) (let ((doom-modeline-icon t)
(doom-modeline-unicode-fallback t)) (doom-modeline-unicode-fallback t))
(cl-flet ((display-graphic-p () t))
(should (should
(string= (substring-no-properties (string= (substring-no-properties
(doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error)) (doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error))
"")))) "")))))
(ert-deftest doom-modeline-icon/octicon-unicode () (ert-deftest doom-modeline-icon/octicon-unicode ()
(let ((doom-modeline-icon nil) (let ((doom-modeline-icon nil)
(doom-modeline-unicode-fallback t)) (doom-modeline-unicode-fallback t))
(cl-flet ((display-graphic-p () t))
(should (should
(string= (substring-no-properties (string= (substring-no-properties
(doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error)) (doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error))
"☻")))) "☻")))))
(ert-deftest doom-modeline-icon/octicon-text () (ert-deftest doom-modeline-icon/octicon-text ()
(let ((doom-modeline-icon nil) (let ((doom-modeline-icon nil)
(doom-modeline-unicode-fallback nil)) (doom-modeline-unicode-fallback nil))
(cl-flet ((display-graphic-p () t))
(should (should
(string= (substring-no-properties (string= (substring-no-properties
(doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error)) (doom-modeline-icon 'octicon "octoface" "☻" ":)" 'error))
":)")))) ":)")))))
(ert-deftest doom-modeline-project-root/ffip () (ert-deftest doom-modeline-project-root/ffip ()
(let ((default-directory "/home/user/project/") (let ((default-directory "/home/user/project/")