masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add a test case for :ensure, following up from

Browse source 
GitHub-reference: https://github.com/jwiegley/use-package/issues/190
This commit is contained in:
John Wiegley 2017-11-30 12:38:01 -08:00
parent 1fc543a212
commit ca94036dce
1 changed files with 108 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,6 +25,19 @@
(require 'ert)
(require 'use-package)
(defmacro expand-minimally (form)
`(let ((use-package-verbose nil)
(use-package-expand-minimally t))
(macroexpand ',form)))
(defmacro match-expansion (form value)
`(should (pcase (expand-minimally ,form)
(,value t))))
;; `cl-flet' does not work for the mocking we do below, while `flet' does.
(eval-when-compile
(setplist 'flet (plist-delete (symbol-plist 'flet) 'byte-obsolete-info)))
(ert-deftest use-package-test-recognize-function ()
(should (use-package--recognize-function 'sym))
(should (use-package--recognize-function #'sym))
@ -63,9 +76,97 @@
;; (should (equal (macroexpand (use-package))
;; '())))
;; (ert-deftest use-package-test/:ensure ()
;; (should (equal (macroexpand (use-package))
;; '())))
(defvar tried-to-install)
(ert-deftest use-package-test/:ensure ()
(let ((use-package-always-ensure nil))
(match-expansion
(use-package foo :ensure t)
`(progn
(use-package-ensure-elpa 'foo 't 'nil :ensure)
(require 'foo nil 'nil))))
(let ((use-package-always-ensure t))
(match-expansion
(use-package foo :ensure t)
`(progn
(use-package-ensure-elpa 'foo 't 'nil :ensure)
(require 'foo nil 'nil))))
(let ((use-package-always-ensure nil))
(match-expansion
(use-package foo :ensure nil)
`(progn
(use-package-ensure-elpa 'foo 'nil 'nil :ensure)
(require 'foo nil 'nil))))
(let ((use-package-always-ensure t))
(match-expansion
(use-package foo :ensure nil)
`(progn
(use-package-ensure-elpa 'foo 'nil 'nil :ensure)
(require 'foo nil 'nil))))
(let ((use-package-always-ensure nil))
(match-expansion
(use-package foo :load-path "foo")
`(progn
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(let ((use-package-always-ensure t))
(match-expansion
(use-package foo :load-path "foo")
`(progn
(use-package-ensure-elpa 'foo 'nil 'nil :ensure)
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(let ((use-package-always-ensure nil))
(match-expansion
(use-package foo :ensure nil :load-path "foo")
`(progn
(use-package-ensure-elpa 'foo 'nil 'nil :ensure)
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(let ((use-package-always-ensure t))
(match-expansion
(use-package foo :ensure nil :load-path "foo")
`(progn
(use-package-ensure-elpa 'foo 'nil 'nil :ensure)
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(let ((use-package-always-ensure nil))
(match-expansion
(use-package foo :ensure t :load-path "foo")
`(progn
(use-package-ensure-elpa 'foo 't 'nil :ensure)
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(let ((use-package-always-ensure t))
(match-expansion
(use-package foo :ensure t :load-path "foo")
`(progn
(use-package-ensure-elpa 'foo 't 'nil :ensure)
(eval-and-compile
(add-to-list 'load-path ,(pred stringp)))
(require 'foo nil 'nil))))
(flet ((use-package-ensure-elpa
(name ensure state context &optional no-refresh)
(when ensure
(setq tried-to-install name))))
(let (tried-to-install)
(eval '(use-package foo :ensure t))
(should (eq tried-to-install 'foo)))))
;; (ert-deftest use-package-test/:if ()
;; (should (equal (macroexpand (use-package))
@ -212,9 +313,10 @@
;; '())))
(ert-deftest use-package-test/:after ()
(should (equal (macroexpand '(use-package foo :after bar))
'(eval-after-load 'bar
'(require 'foo nil t)))))
(match-expansion
(use-package foo :after bar)
`(eval-after-load 'bar
'(require 'foo nil t))))
;; (ert-deftest use-package-test/:demand ()
;; (should (equal (macroexpand (use-package))