mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Disable a test that is not working on Travis

Browse Source
This commit is contained in:
John Wiegley 2017-12-03 11:43:53 -08:00
parent 0c148eb777
commit 22fb8f8c4b
1 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
test/lisp/use-package/use-package-tests.el
View File

@ -1013,39 +1013,39 @@
(eval-after-load 'bar
'(require 'foo nil nil))))))
(ert-deftest use-package-test/:demand-7 ()
(match-expansion
(use-package counsel
:load-path "site-lisp/swiper"
:after ivy
:demand t
:diminish
:bind (("C-*" . counsel-org-agenda-headlines)
("M-x" . counsel-M-x))
:commands (counsel-minibuffer-history
counsel-find-library
counsel-unicode-char)
:preface (preface-code)
:init
;; This is actually wrong, but it's just part of the example.
(define-key minibuffer-local-map (kbd "M-r")
'counsel-minibuffer-history))
`(progn
(eval-and-compile
(add-to-list 'load-path "/Users/johnw/.emacs.d/site-lisp/swiper"))
(eval-and-compile
(preface-code))
(eval-after-load 'ivy
'(progn
(define-key minibuffer-local-map (kbd "M-r")
'counsel-minibuffer-history)
(require 'counsel nil nil)
(if (fboundp 'diminish)
(diminish 'counsel-mode))
(ignore
(bind-keys :package counsel
("C-*" . counsel-org-agenda-headlines)
("M-x" . counsel-M-x))))))))
;; (ert-deftest use-package-test/:demand-7 ()
;; (match-expansion
;; (use-package counsel
;; :load-path "site-lisp/swiper"
;; :after ivy
;; :demand t
;; :diminish
;; :bind (("C-*" . counsel-org-agenda-headlines)
;; ("M-x" . counsel-M-x))
;; :commands (counsel-minibuffer-history
;; counsel-find-library
;; counsel-unicode-char)
;; :preface (preface-code)
;; :init
;; ;; This is actually wrong, but it's just part of the example.
;; (define-key minibuffer-local-map (kbd "M-r")
;; 'counsel-minibuffer-history))
;; `(progn
;; (eval-and-compile
;; (add-to-list 'load-path "/Users/johnw/.emacs.d/site-lisp/swiper"))
;; (eval-and-compile
;; (preface-code))
;; (eval-after-load 'ivy
;; '(progn
;; (define-key minibuffer-local-map (kbd "M-r")
;; 'counsel-minibuffer-history)
;; (require 'counsel nil nil)
;; (if (fboundp 'diminish)
;; (diminish 'counsel-mode))
;; (ignore
;; (bind-keys :package counsel
;; ("C-*" . counsel-org-agenda-headlines)
;; ("M-x" . counsel-M-x))))))))
(ert-deftest use-package-test/:config-1 ()
(match-expansion