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

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.
This commit is contained in:
Dmitry Gutov 2015-01-23 02:50:15 +02:00
parent 2f908e0cac
commit f02406c74a
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/ChangeLog
View File

@ -1,4 +1,12 @@
2015-01-20 Jorgen Schaefer <contact@jorgenschaefer.de>
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 Jorgen Schaefer <contact@jorgenschaefer.de>
* automated/package-test.el (package-test-install-prioritized):
Re-add the test case and add priority to the correct repository

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
@ -339,8 +340,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"
@ -409,8 +409,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))))))