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

Remove an unneeded defvar

Browse source
This commit is contained in:
John Wiegley 2017-11-30 12:39:04 -08:00
parent 0be868d39b
commit 98ee89a752
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -76,8 +76,6 @@
;; (should (equal (macroexpand (use-package)) ;; (should (equal (macroexpand (use-package))
;; '()))) ;; '())))
(defvar tried-to-install)
(ert-deftest use-package-test/:ensure () (ert-deftest use-package-test/:ensure ()
(let ((use-package-always-ensure nil)) (let ((use-package-always-ensure nil))
(match-expansion (match-expansion
@ -160,11 +158,11 @@
(add-to-list 'load-path ,(pred stringp))) (add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil)))) (require 'foo nil 'nil))))
(flet ((use-package-ensure-elpa (let (tried-to-install)
(name ensure state context &optional no-refresh) (flet ((use-package-ensure-elpa
(when ensure (name ensure state context &optional no-refresh)
(setq tried-to-install name)))) (when ensure
(let (tried-to-install) (setq tried-to-install name))))
(eval '(use-package foo :ensure t)) (eval '(use-package foo :ensure t))
(should (eq tried-to-install 'foo))))) (should (eq tried-to-install 'foo)))))