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

Stub some referenced variables, for Travis

Browse source
This commit is contained in:
John Wiegley 2017-12-05 14:27:49 -08:00
parent b5a0cd4f30
commit 7c3a6cd70b
1 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1664,22 +1664,24 @@
`(bind-key "C-c C-r" #'org-ref-helm-insert-cite-link override-global-map nil))) `(bind-key "C-c C-r" #'org-ref-helm-insert-cite-link override-global-map nil)))
(ert-deftest use-package-test/560 () (ert-deftest use-package-test/560 ()
(match-expansion (flet ((executable-find (name)))
(use-package notmuch (let (notmuch-command)
:preface (setq-default notmuch-command (executable-find "notmuch")) (match-expansion
:if notmuch-command (use-package notmuch
:requires foo :preface (setq-default notmuch-command (executable-find "notmuch"))
:load-path "my-load-path" :if notmuch-command
:defines var) :requires foo
`(progn :load-path "my-load-path"
(eval-and-compile :defines var)
(add-to-list 'load-path "/Users/johnw/.emacs.d/my-load-path")) `(progn
(when (featurep 'foo) (eval-and-compile
(eval-and-compile (add-to-list 'load-path "/Users/johnw/.emacs.d/my-load-path"))
(setq-default notmuch-command (when (featurep 'foo)
(executable-find "notmuch"))) (eval-and-compile
(when (symbol-value 'notmuch-command) (setq-default notmuch-command
(require 'notmuch nil nil)))))) (executable-find "notmuch")))
(when (symbol-value 'notmuch-command)
(require 'notmuch nil nil))))))))
(ert-deftest bind-key/:prefix-map () (ert-deftest bind-key/:prefix-map ()
(match-expansion (match-expansion