From 7c3a6cd70b4ad73852eed7c59077d96762637930 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 5 Dec 2017 14:27:49 -0800 Subject: [PATCH] Stub some referenced variables, for Travis --- test/lisp/use-package/use-package-tests.el | 34 ++++++++++++---------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index a47188f8ecc..c040c89654e 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1664,22 +1664,24 @@ `(bind-key "C-c C-r" #'org-ref-helm-insert-cite-link override-global-map nil))) (ert-deftest use-package-test/560 () - (match-expansion - (use-package notmuch - :preface (setq-default notmuch-command (executable-find "notmuch")) - :if notmuch-command - :requires foo - :load-path "my-load-path" - :defines var) - `(progn - (eval-and-compile - (add-to-list 'load-path "/Users/johnw/.emacs.d/my-load-path")) - (when (featurep 'foo) - (eval-and-compile - (setq-default notmuch-command - (executable-find "notmuch"))) - (when (symbol-value 'notmuch-command) - (require 'notmuch nil nil)))))) + (flet ((executable-find (name))) + (let (notmuch-command) + (match-expansion + (use-package notmuch + :preface (setq-default notmuch-command (executable-find "notmuch")) + :if notmuch-command + :requires foo + :load-path "my-load-path" + :defines var) + `(progn + (eval-and-compile + (add-to-list 'load-path "/Users/johnw/.emacs.d/my-load-path")) + (when (featurep 'foo) + (eval-and-compile + (setq-default notmuch-command + (executable-find "notmuch"))) + (when (symbol-value 'notmuch-command) + (require 'notmuch nil nil)))))))) (ert-deftest bind-key/:prefix-map () (match-expansion -- 2.39.2