93 lines
3.8 KiB
EmacsLisp
93 lines
3.8 KiB
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; core/test/test-core-lib.el
|
|
|
|
(require 'core-lib)
|
|
|
|
(describe "core/lib"
|
|
;; --- Helpers ----------------------------
|
|
(describe "doom-unquote"
|
|
(it "unquotes a quoted form"
|
|
(expect (doom-unquote '(quote hello)) :to-be 'hello))
|
|
(it "unquotes nested-quoted forms"
|
|
(expect (doom-unquote '(quote (quote (a b c)))) :to-equal '(a b c)))
|
|
(it "unquotes function-quoted forms"
|
|
(expect (doom-unquote '(function a)) :to-be 'a))
|
|
(it "does nothing to unquoted forms"
|
|
(expect (doom-unquote 'hello) :to-be 'hello)))
|
|
|
|
(describe "doom-enlist"
|
|
(it "creates a list out of non-lists"
|
|
(expect (doom-enlist 'a) :to-equal '(a)))
|
|
(it "does nothing to lists"
|
|
(expect (doom-enlist '(a)) :to-equal '(a))))
|
|
|
|
|
|
;; --- Macros -----------------------------
|
|
(describe "hooks"
|
|
(describe "add-hook!"
|
|
:var (fake-mode-hook other-mode-hook some-mode-hook)
|
|
(before-each
|
|
(setq fake-mode-hook '(first-hook)
|
|
other-mode-hook nil
|
|
some-mode-hook '(first-hook second-hook)))
|
|
|
|
(it "adds one-to-one hook"
|
|
(add-hook! fake-mode #'hook-2)
|
|
(add-hook! 'fake-mode-hook #'hook-1)
|
|
(expect fake-mode-hook :to-equal '(hook-1 hook-2 first-hook)))
|
|
|
|
(it "adds many-to-one hook"
|
|
(add-hook! (fake-mode other-mode some-mode) #'hook-2)
|
|
(add-hook! '(fake-mode-hook other-mode-hook some-mode-hook) #'hook-1)
|
|
(add-hook! :append (fake-mode other-mode some-mode) #'last-hook)
|
|
(expect fake-mode-hook :to-equal '(hook-1 hook-2 first-hook last-hook))
|
|
(expect other-mode-hook :to-equal '(hook-1 hook-2 last-hook))
|
|
(expect some-mode-hook :to-equal '(hook-1 hook-2 first-hook second-hook last-hook)))
|
|
|
|
(it "adds many-to-many hooks and preserve provided order"
|
|
(add-hook! (fake-mode other-mode some-mode) #'(hook-3 hook-4))
|
|
(add-hook! '(fake-mode-hook other-mode-hook some-mode-hook) #'(hook-1 hook-2))
|
|
(add-hook! :append '(fake-mode-hook other-mode-hook some-mode-hook) #'(last-hook-1 last-hook-2))
|
|
(expect fake-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 first-hook last-hook-1 last-hook-2))
|
|
(expect other-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 last-hook-1 last-hook-2))
|
|
(expect some-mode-hook :to-equal '(hook-1 hook-2 hook-3 hook-4 first-hook second-hook last-hook-1 last-hook-2)))
|
|
|
|
(it "adds implicit lambda to one hook"
|
|
(add-hook! fake-mode (progn))
|
|
(add-hook! 'other-mode-hook (ignore))
|
|
(add-hook! :append 'some-mode-hook (ignore))
|
|
(expect (caar fake-mode-hook) :to-be 'lambda)
|
|
(expect (caar other-mode-hook) :to-be 'lambda)
|
|
(expect (caar (last other-mode-hook)) :to-be 'lambda)))
|
|
|
|
(describe "remove-hook!"
|
|
:var (fake-mode-hook)
|
|
(before-each
|
|
(setq fake-mode-hook '(first-hook second-hook third-hook fourth-hook)))
|
|
(it "removes one hook"
|
|
(remove-hook! fake-mode #'third-hook)
|
|
(remove-hook! 'fake-mode-hook #'second-hook)
|
|
(expect fake-mode-hook :to-equal '(first-hook fourth-hook)))
|
|
(it "removes multiple hooks"
|
|
(remove-hook! fake-mode #'(first-hook third-hook))
|
|
(remove-hook! 'fake-mode-hook #'(second-hook fourth-hook))
|
|
(expect fake-mode-hook :to-be nil))))
|
|
|
|
(describe "add-transient-hook!"
|
|
(it "adds a transient function to hooks"
|
|
(let (hooks value)
|
|
(add-transient-hook! 'hooks (setq value t))
|
|
(run-hooks 'hooks)
|
|
(expect value)
|
|
(expect hooks :to-be nil)))
|
|
(it "advises a function with a transient advisor"
|
|
(let (value)
|
|
(add-transient-hook! #'ignore (setq value (not value)))
|
|
(ignore t)
|
|
(expect value)
|
|
;; repeat to ensure it was only run once
|
|
(ignore t)
|
|
(expect value))))
|
|
|
|
(xdescribe "associate!")) ; TODO
|