emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rewrite ui/doom-dashboard tests

Browse source
This commit is contained in:
Henrik Lissner 2017-12-29 04:17:31 -05:00
parent 02c1a78330
commit 96ed8170d7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 25 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

46
modules/ui/doom-dashboard/test/doom-dashboard.el
View file

@ -4,21 +4,31 @@
(require! :ui doom-dashboard) (require! :ui doom-dashboard)
(+doom-dashboard|init) (+doom-dashboard|init)
(defun -dashboard-test-cwd (spec file) (defun -dashboard-test-pwd (spec file)
(let ((+doom-dashboard-pwd-policy (car spec)) (let ((kill-buffer-query-functions '(+doom-dashboard|reload-on-kill))
(+doom-dashboard-pwd-policy (car spec))
(fallback-buffer (doom-fallback-buffer))
+doom-dashboard--last-cwd +doom-dashboard--last-cwd
projectile-enable-caching) projectile-enable-caching)
(with-temp-buffer (with-temp-buffer
(setq-local buffer-file-name file) (setq buffer-file-name file
(setq-local default-directory (file-name-directory file))) default-directory (file-name-directory file)
doom-real-buffer-p t))
(should +doom-dashboard--last-cwd) (should +doom-dashboard--last-cwd)
(+doom-dashboard-reload t) (+doom-dashboard-update-pwd)
(should (equal (buffer-local-value 'default-directory (doom-fallback-buffer)) (should (equal (buffer-local-value 'default-directory fallback-buffer)
(cdr spec))))) (cdr spec)))))
;; ;;
(def-test! pwd-policy (def-test! dashboard-p
(let ((default-directory doom-emacs-dir) (let ((fallback-buffer (doom-fallback-buffer)))
(should (equal (buffer-name fallback-buffer) +doom-dashboard-name))
(should (+doom-dashboard-p fallback-buffer))
(with-current-buffer fallback-buffer
(should (+doom-dashboard-p)))))
(def-test! get-pwd
(let ((default-directory doom-core-dir)
(+doom-dashboard--last-cwd doom-core-dir) (+doom-dashboard--last-cwd doom-core-dir)
projectile-enable-caching) projectile-enable-caching)
(dolist (spec (list (cons 'last-project doom-emacs-dir) (dolist (spec (list (cons 'last-project doom-emacs-dir)
@ -29,19 +39,13 @@
(let ((+doom-dashboard-pwd-policy (car spec))) (let ((+doom-dashboard-pwd-policy (car spec)))
(should (equal (+doom-dashboard--get-pwd) (cdr spec))))))) (should (equal (+doom-dashboard--get-pwd) (cdr spec)))))))
(def-test! kill-buffer-query (def-test! pwd-policy
(let (+doom-dashboard--last-cwd)
(with-temp-buffer
(setq buffer-file-name (expand-file-name "core.el" doom-core-dir)
default-directory doom-core-dir)
(kill-buffer (current-buffer)))
(should (equal +doom-dashboard--last-cwd doom-core-dir))))
(def-test! dashboard-reload-pwd-policy
(dolist (spec (list (cons 'last-project doom-emacs-dir) (dolist (spec (list (cons 'last-project doom-emacs-dir)
(cons 'last doom-core-dir) (cons 'last doom-core-dir)
(cons "~" (expand-file-name "~")) (cons "~" (expand-file-name "~/"))
(cons (lambda (x) "/tmp") (expand-file-name "/tmp")))) (cons (lambda (x) "/tmp") "/tmp/")))
(-dashboard-test-cwd spec (expand-file-name "core.el" doom-core-dir)))) (-dashboard-test-pwd spec (expand-file-name "core.el" doom-core-dir))))
;;
(def-test! inhibit-refresh :skip t)
(def-test! inhibit-functions :skip t)