X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/11f42149b1c6d0f4805a6265b42301d04e0203fc..218ae59019204311101b1d6f79c86f8815b3a65b:/test/automated/package-test.el diff --git a/test/automated/package-test.el b/test/automated/package-test.el index de41c3bc8e..5580645474 100644 --- a/test/automated/package-test.el +++ b/test/automated/package-test.el @@ -1,6 +1,6 @@ ;;; package-test.el --- Tests for the Emacs package system -;; Copyright (C) 2013-2015 Free Software Foundation, Inc. +;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; Author: Daniel Hackney ;; Version: 1.0 @@ -242,6 +242,20 @@ Must called from within a `tar-mode' buffer." (should (package-installed-p 'simple-single)) (should (package-installed-p 'simple-depend)))) +(ert-deftest package-test-macro-compilation () + "Install a package which includes a dependency." + (with-package-test (:basedir "data/package") + (package-install-file (expand-file-name "macro-problem-package-1.0/")) + (require 'macro-problem) + ;; `macro-problem-func' uses a macro from `macro-aux'. + (should (equal (macro-problem-func) '(progn a b))) + (package-install-file (expand-file-name "macro-problem-package-2.0/")) + ;; After upgrading, `macro-problem-func' depends on a new version + ;; of the macro from `macro-aux'. + (should (equal (macro-problem-func) '(1 b))) + ;; `macro-problem-10-and-90' depends on an entirely new macro from `macro-aux'. + (should (equal (macro-problem-10-and-90) '(10 90))))) + (ert-deftest package-test-install-two-dependencies () "Install a package which includes a dependency." (with-package-test () @@ -452,7 +466,7 @@ Must called from within a `tar-mode' buffer." (cons (format "HOME=%s" homedir) process-environment))) (epg-check-configuration (epg-configuration)) - t) + (epg-find-configuration 'OpenPGP)) (delete-directory homedir t))))) (let* ((keyring (expand-file-name "key.pub" package-test-data-dir)) (package-test-data-dir