(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t)))
+ (unless (featurep 'foo)
+ (load "foo" nil t))))
(t))
(require 'foo nil nil)))))
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t)))
+ (unless (featurep 'foo)
+ (load "foo" nil t))))
(preface))
(init)
(require 'foo nil nil)
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t)))
+ (unless (featurep 'foo)
+ (load "foo" nil t))))
(preface))
(init)
(eval-after-load 'foo
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:requires-3 ()
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:load-path-1 ()
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:load-path-3 ()
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(unless (fboundp 'bar)
(autoload #'bar "foo" nil t))
(eval-when-compile
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load gnus-harvest: %S" nil
- (load "gnus-harvest" nil t))))
+ (unless (featurep 'gnus-harvest)
+ (load "gnus-harvest" nil t)))))
(eval-when-compile
(declare-function gnus-harvest-install "gnus-harvest"))
(require 'gnus-harvest nil nil)
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:functions-1 ()
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:functions-3 ()
(declare-function bar "foo")
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t)))))))
+ (unless (featurep 'foo)
+ (load "foo" nil t))))))))
(ert-deftest use-package-test/:functions-5 ()
(let ((byte-compile-current-file t))
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(eval-after-load 'foo
'(progn
(config)
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:defer-3 ()
`(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t)))))))
+ (unless (featurep 'foo)
+ (load "foo" nil t))))))))
(ert-deftest use-package-test-normalize/:hook ()
(flet ((norm (&rest args)
(eval-when-compile
(with-demoted-errors
"Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(unless
(fboundp 'key)
(autoload #'key "foo" nil t))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(init)
(require 'foo nil nil)))))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(eval-after-load 'bar
'(require 'foo nil nil))))))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)))))
(ert-deftest use-package-test/:demand-3 ()
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)
(config)
t))))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(eval-after-load 'bar
'(require 'foo nil nil))))))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(require 'foo nil nil)
(config)
t))))
(eval-and-compile
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
- (load "foo" nil t))))
+ (unless (featurep 'foo)
+ (load "foo" nil t)))))
(eval-after-load 'foo
'(progn
(config)