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

Backport: Fix package tests when TMPDIR is in HOME

Browse Source 
Fixes: debbugs:19657

* test/automated/package-test.el (with-package-test):
Bind `abbreviated-home-dir' to nil.
(package-test-describe-package, package-test-signed):
Expect abbreviated directory names.

(cherry picked from commit f02406c74a)
This commit is contained in:
Dmitry Gutov 2015-01-23 02:50:15 +02:00
parent 3a345b5062
commit 81fb8ab036
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/ChangeLog
View File

@ -1,3 +1,11 @@
2015-01-23 Dmitry Gutov <dgutov@yandex.ru>
Fix package tests when TMPDIR is in HOME. (Bug#19657)
* automated/package-test.el (with-package-test):
Bind `abbreviated-home-dir' to nil.
(package-test-describe-package, package-test-signed):
Expect abbreviated directory names.
2015-01-22 Wolfgang Jenkner <wjenkner@inode.at>
* automated/calc-tests.el (calc-tests-equal, calc-tests-simple):

7
test/automated/package-test.el
View File

@ -95,6 +95,7 @@
(package-archives `(("gnu" . ,package-test-data-dir)))
(old-yes-no-defn (symbol-function 'yes-or-no-p))
(default-directory package-test-file-dir)
abbreviated-home-dir
package--initialized
package-alist
,@(if update-news
@ -321,8 +322,7 @@ Must called from within a `tar-mode' buffer."
(goto-char (point-min))
(should (search-forward "simple-single is an installed package." nil t))
(should (search-forward
(format "Status: Installed in `%s/' (unsigned)."
(expand-file-name "simple-single-1.3" package-user-dir))
"Status: Installed in `~/simple-single-1.3/' (unsigned)."
nil t))
(should (search-forward "Version: 1.3" nil t))
(should (search-forward "Summary: A single-file package with no dependencies"
@ -391,8 +391,7 @@ Must called from within a `tar-mode' buffer."
(goto-char (point-min))
(should (search-forward "signed-good is an installed package." nil t))
(should (search-forward
(format "Status: Installed in `%s/'."
(expand-file-name "signed-good-1.0" package-user-dir))
"Status: Installed in `~/signed-good-1.0/'."
nil t))))))
(provide 'package-test)