90 lines
3.4 KiB
EmacsLisp
90 lines
3.4 KiB
EmacsLisp
|
;;; feature/workspaces/test/autoload-workspaces.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(require! :feature workspaces)
|
||
|
|
|
||
|
|
(defmacro -with-workspace! (buffer-args &rest body)
|
||
|
|
(declare (indent defun))
|
||
|
|
(let ((buffers
|
||
|
|
(cl-loop for bsym in buffer-args
|
||
|
|
collect `(,bsym (get-buffer-create ,(symbol-name bsym))))))
|
||
|
|
`(let (noninteractive)
|
||
|
|
(+workspaces|init)
|
||
|
|
(save-window-excursion
|
||
|
|
(let* (,@buffers)
|
||
|
|
(cl-loop with persp = (get-current-persp)
|
||
|
|
for buf in (list ,@(mapcar #'car buffers))
|
||
|
|
do (persp-add-buffer buf persp)
|
||
|
|
do (with-current-buffer buf
|
||
|
|
(setq buffer-file-name (make-temp-file "workspaces-test-"))))
|
||
|
|
,@body
|
||
|
|
(dolist (buf (list ,@(mapcar #'car buffers)))
|
||
|
|
(persp-remove-buffer buf)
|
||
|
|
(kill-buffer buf))))
|
||
|
|
(persp-mode -1)
|
||
|
|
(setq *persp-hash* nil
|
||
|
|
persp-buffer-props-hash nil))))
|
||
|
|
|
||
|
|
;;
|
||
|
|
(def-test! init
|
||
|
|
(-with-workspace! ()
|
||
|
|
(should (equal (+workspace-current-name) +workspaces-main))))
|
||
|
|
|
||
|
|
(def-test! advice
|
||
|
|
(should (advice-member-p #'+workspaces*auto-add-buffer #'switch-to-buffer)))
|
||
|
|
|
||
|
|
(def-test! current
|
||
|
|
(-with-workspace! ()
|
||
|
|
(should (equal (+workspace-current-name) +workspaces-main))
|
||
|
|
(should (+workspace-exists-p +workspaces-main))
|
||
|
|
(let ((workspace (+workspace-get +workspaces-main))
|
||
|
|
(current-workspace (+workspace-current)))
|
||
|
|
(should workspace)
|
||
|
|
(should (+workspace-p workspace))
|
||
|
|
(should (+workspace-p current-workspace))
|
||
|
|
(should (equal workspace current-workspace)))))
|
||
|
|
|
||
|
|
(def-test! workspace-list
|
||
|
|
(-with-workspace! ()
|
||
|
|
(should (equal (+workspace-list-names)
|
||
|
|
(list (+workspace-current-name))))
|
||
|
|
(should (equal (+workspace-list)
|
||
|
|
(list (+workspace-current))))))
|
||
|
|
|
||
|
|
(def-test! workspace-crud
|
||
|
|
"Creating, reading, updating and deleting workspaces."
|
||
|
|
(-with-workspace! ()
|
||
|
|
(let ((new-workspace-name "*new-test*")
|
||
|
|
(renamed-workspace-name "*old-test*"))
|
||
|
|
(should (+workspace-new new-workspace-name))
|
||
|
|
(should (seq-contains (+workspace-list-names) new-workspace-name))
|
||
|
|
(should (equal new-workspace-name
|
||
|
|
(+workspace-rename new-workspace-name renamed-workspace-name)))
|
||
|
|
(should-not (seq-contains (+workspace-list-names) new-workspace-name))
|
||
|
|
(should (seq-contains (+workspace-list-names) renamed-workspace-name))
|
||
|
|
(should (= (length (+workspace-list-names)) 2))
|
||
|
|
(+workspace-delete renamed-workspace-name)
|
||
|
|
(should (= (length (+workspace-list-names)) 1)))))
|
||
|
|
|
||
|
|
(def-test! workspace-switch
|
||
|
|
(-with-workspace! ()
|
||
|
|
(let ((new-workspace-name "*new-test*"))
|
||
|
|
(should-error (+workspace-switch new-workspace-name))
|
||
|
|
(should (+workspace-switch new-workspace-name t))
|
||
|
|
(should (equal (+workspace-current-name) new-workspace-name)))))
|
||
|
|
|
||
|
|
(def-test! buffer-list
|
||
|
|
(-with-workspace! (a b)
|
||
|
|
(let ((c (get-buffer-create "c"))
|
||
|
|
(d (get-buffer-create "d")))
|
||
|
|
(should (+workspace-contains-buffer-p a))
|
||
|
|
(should (+workspace-contains-buffer-p b))
|
||
|
|
(should-not (+workspace-contains-buffer-p c))
|
||
|
|
;; New (and real) buffers should be added to workspace buffer list.
|
||
|
|
(doom-set-buffer-real c t)
|
||
|
|
(switch-to-buffer "c")
|
||
|
|
(should (+workspace-contains-buffer-p c))
|
||
|
|
;; unreal buffers shouldn't
|
||
|
|
(switch-to-buffer "d")
|
||
|
|
(should-not (+workspace-contains-buffer-p d)))))
|
||
|
|
|