mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 01:20:37 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from skangas/revert-for-copyright

Browse source 
GitHub-reference: https://github.com/jwiegley/use-package/issues/1026
This commit is contained in:
John Wiegley 2022-11-27 14:18:03 -08:00 • committed by GitHub
commit 58cc931e92
1 changed files with 0 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

31
test/lisp/use-package/use-package-tests.el
View file

@ -1505,37 +1505,6 @@
(config)
t))))))
(ert-deftest use-package-test/pre-post-hooks-with-:config ()
(let ((use-package-inject-hooks t))
(match-expansion
(use-package foo :config (config))
`(progn
(when
(run-hook-with-args-until-failure 'use-package--foo--pre-init-hook)
(run-hooks 'use-package--foo--post-init-hook))
(require 'foo nil nil)
(when
(run-hook-with-args-until-failure 'use-package--foo--pre-config-hook)
(config)
(run-hooks 'use-package--foo--post-config-hook))
t))))
(ert-deftest use-package-test/pre-post-hooks-without-:config ()
;; https://github.com/jwiegley/use-package/issues/785
(let ((use-package-inject-hooks t))
(match-expansion
(use-package foo)
`(progn
(when
(run-hook-with-args-until-failure 'use-package--foo--pre-init-hook)
(run-hooks 'use-package--foo--post-init-hook))
(require 'foo nil nil)
(when
(run-hook-with-args-until-failure 'use-package--foo--pre-config-hook)
t
(run-hooks 'use-package--foo--post-config-hook))
t))))
(ert-deftest use-package-test-normalize/:diminish ()
(should (equal (use-package-normalize-diminish 'foopkg :diminish nil)
'(foopkg-mode)))