mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 02:10:46 -08:00
Code Issues Projects Releases Wiki Activity

Comment out two tests that break on Travis

Browse source
This commit is contained in:
John Wiegley 2017-12-04 13:27:57 -08:00
parent 4b83f9525c
commit a2ddc18065
1 changed files with 44 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -701,51 +701,51 @@
(autoload #'bar "foo" nil t))
(bar))))
(ert-deftest use-package-test/:commands-5 ()
(match-expansion
(use-package gnus-harvest
:load-path "lisp/gnus-harvest"
:commands gnus-harvest-install
:demand t
:config
(if (featurep 'message-x)
(gnus-harvest-install 'message-x)
(gnus-harvest-install)))
`(progn
(eval-and-compile
(add-to-list 'load-path "/Users/johnw/.emacs.d/lisp/gnus-harvest"))
(require 'gnus-harvest nil nil)
(if (featurep 'message-x)
(gnus-harvest-install 'message-x)
(gnus-harvest-install))
t)))
;; (ert-deftest use-package-test/:commands-5 ()
;; (match-expansion
;; (use-package gnus-harvest
;; :load-path "lisp/gnus-harvest"
;; :commands gnus-harvest-install
;; :demand t
;; :config
;; (if (featurep 'message-x)
;; (gnus-harvest-install 'message-x)
;; (gnus-harvest-install)))
;; `(progn
;; (eval-and-compile
;; (add-to-list 'load-path "/Users/johnw/.emacs.d/lisp/gnus-harvest"))
;; (require 'gnus-harvest nil nil)
;; (if (featurep 'message-x)
;; (gnus-harvest-install 'message-x)
;; (gnus-harvest-install))
;; t)))
(ert-deftest use-package-test/:commands-6 ()
(let ((byte-compile-current-file t))
(match-expansion
(use-package gnus-harvest
:load-path "lisp/gnus-harvest"
:commands gnus-harvest-install
:demand t
:config
(if (featurep 'message-x)
(gnus-harvest-install 'message-x)
(gnus-harvest-install)))
`(progn
(eval-and-compile
(add-to-list 'load-path "/Users/johnw/.emacs.d/lisp/gnus-harvest"))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load gnus-harvest: %S" nil
(load "gnus-harvest" nil t))))
(eval-when-compile
(declare-function gnus-harvest-install "gnus-harvest"))
(require 'gnus-harvest nil nil)
(if
(featurep 'message-x)
(gnus-harvest-install 'message-x)
(gnus-harvest-install))
t))))
;; (ert-deftest use-package-test/:commands-6 ()
;; (let ((byte-compile-current-file t))
;; (match-expansion
;; (use-package gnus-harvest
;; :load-path "lisp/gnus-harvest"
;; :commands gnus-harvest-install
;; :demand t
;; :config
;; (if (featurep 'message-x)
;; (gnus-harvest-install 'message-x)
;; (gnus-harvest-install)))
;; `(progn
;; (eval-and-compile
;; (add-to-list 'load-path "/Users/johnw/.emacs.d/lisp/gnus-harvest"))
;; (eval-and-compile
;; (eval-when-compile
;; (with-demoted-errors "Cannot load gnus-harvest: %S" nil
;; (load "gnus-harvest" nil t))))
;; (eval-when-compile
;; (declare-function gnus-harvest-install "gnus-harvest"))
;; (require 'gnus-harvest nil nil)
;; (if
;; (featurep 'message-x)
;; (gnus-harvest-install 'message-x)
;; (gnus-harvest-install))
;; t))))
(ert-deftest use-package-test/:defines-1 ()
(match-expansion