mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add tests for the last two keywords

Browse source
This commit is contained in:
John Wiegley 2017-12-01 11:16:19 -08:00
parent cd4790b3df
commit cb846d188a
1 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -30,7 +30,7 @@
use-package-expand-minimally t
max-lisp-eval-depth 8000)
;; (let ((byte-compile-current-file nil)) (expand-minimally ())
;; (let ((byte-compile-current-file nil)) (expand-minimally ()))
(fset 'insert-expansion
[?\C-\M- ?\M-w ?\M-: ?\M-p ?\C-e ?\C-b ?\C-b ?\C-\M-b ?\C-y ?\C-\M-k return ?\C-\M- ?\M-w C-return ?\C-z ?\C-n ?\C-f ?\C-y ?\C-\M-k])
@ -160,13 +160,24 @@
(config)
t))))))
;; (ert-deftest use-package-test/:pin ()
;; (should (equal (macroexpand (use-package))
;; '())))
(ert-deftest use-package-test/:pin ()
(match-expansion
(use-package foo :pin foo)
`(progn
(use-package-pin-package 'foo "foo")
(require 'foo nil 'nil)))
;; (ert-deftest use-package-test/:defer-install ()
;; (should (equal (macroexpand (use-package))
;; '())))
(match-expansion
(use-package foo :pin "foo")
`(progn
(use-package-pin-package 'foo "foo")
(require 'foo nil 'nil))))
(ert-deftest use-package-test/:defer-install ()
(match-expansion
(use-package foo :defer-install t)
`(progn
(require 'foo nil 'nil))))
(ert-deftest use-package-test-normalize/:ensure ()
(flet ((norm (&rest args)