awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-05 12:37:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix doom-project-* unit tests

Browse Source
This commit is contained in:
Henrik Lissner
2018-01-29 18:38:40 -05:00
parent e87809ab59
commit e33e2b9c63
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
core/test/core-projects.el
View File

@ -7,19 +7,23 @@
;; `doom-project-p' ;; `doom-project-p'
(def-test! project-p (def-test! project-p
:minor-mode projectile-mode :minor-mode projectile-mode
(let ((default-directory doom-emacs-dir)) (let ((buffer-file-name (expand-file-name "init.el" doom-emacs-dir))
(default-directory doom-emacs-dir))
(should (doom-project-p))) (should (doom-project-p)))
(let ((default-directory (expand-file-name "~"))) (let ((buffer-file-name (expand-file-name "test" "~"))
(default-directory (expand-file-name "~")))
(should-not (doom-project-p)))) (should-not (doom-project-p))))
;; `doom-project-p' ;; `doom-project-root'
(def-test! project-root (def-test! project-root
:minor-mode projectile-mode :minor-mode projectile-mode
;; Should resolve to project root ;; Should resolve to project root
(let ((default-directory doom-core-dir)) (let ((buffer-file-name (expand-file-name "core.el" doom-core-dir))
(default-directory doom-core-dir))
(should (equal (doom-project-root) doom-emacs-dir))) (should (equal (doom-project-root) doom-emacs-dir)))
;; Should resolve to `default-directory' if not a project ;; Should resolve to `default-directory' if not a project
(let ((default-directory (expand-file-name "~"))) (let ((buffer-file-name (expand-file-name "test" "~"))
(default-directory (expand-file-name "~")))
(should (equal (doom-project-root) default-directory)))) (should (equal (doom-project-root) default-directory))))
;; `doom-project-expand' ;; `doom-project-expand'