diff options
| author | Glenn Morris | 2014-06-26 00:34:09 -0700 |
|---|---|---|
| committer | Glenn Morris | 2014-06-26 00:34:09 -0700 |
| commit | dceff1c15aad83623d773ab6bea70be229372584 (patch) | |
| tree | 181645c556234acceca7f83850a913cad66da659 /test | |
| parent | d9ca41e7a9760b23979e40053c209976f5064c42 (diff) | |
| download | emacs-dceff1c15aad83623d773ab6bea70be229372584.tar.gz emacs-dceff1c15aad83623d773ab6bea70be229372584.zip | |
* test/automated/package-x-test.el: Do not mess with load-path.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 2 | ||||
| -rw-r--r-- | test/automated/package-x-test.el | 17 |
2 files changed, 3 insertions, 16 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index fbbc0f9de51..7ad0e9a4b9d 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2014-06-26 Glenn Morris <rgm@gnu.org> | 1 | 2014-06-26 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * automated/package-x-test.el: Do not mess with load-path. | ||
| 4 | |||
| 3 | * automated/Makefile.in (%.log): If error, dump log to stdout. | 5 | * automated/Makefile.in (%.log): If error, dump log to stdout. |
| 4 | 6 | ||
| 5 | 2014-06-26 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2014-06-26 Stefan Monnier <monnier@iro.umontreal.ca> |
diff --git a/test/automated/package-x-test.el b/test/automated/package-x-test.el index cce51b63561..d58915e7c7b 100644 --- a/test/automated/package-x-test.el +++ b/test/automated/package-x-test.el | |||
| @@ -22,27 +22,12 @@ | |||
| 22 | 22 | ||
| 23 | ;;; Commentary: | 23 | ;;; Commentary: |
| 24 | 24 | ||
| 25 | ;; You may want to run this from a separate Emacs instance from your | ||
| 26 | ;; main one, because a bug in the code below could mess with your | ||
| 27 | ;; installed packages. | ||
| 28 | |||
| 29 | ;; Run this in a clean Emacs session using: | ||
| 30 | ;; | ||
| 31 | ;; $ emacs -Q --batch -L . -l package-x-test.el -f ert-run-tests-batch-and-exit | ||
| 32 | |||
| 33 | ;;; Code: | 25 | ;;; Code: |
| 34 | 26 | ||
| 35 | (require 'package-x) | 27 | (require 'package-x) |
| 36 | (require 'ert) | 28 | (require 'ert) |
| 37 | (require 'cl-lib) | 29 | (require 'cl-lib) |
| 38 | (eval-when-compile (require 'package-test)) | 30 | (require 'package-test) |
| 39 | |||
| 40 | ;; package-test is not normally in `load-path', so temporarily set | ||
| 41 | ;; `load-path' to contain the current directory. | ||
| 42 | (let ((load-path (append (list (file-name-directory (or load-file-name | ||
| 43 | buffer-file-name))) | ||
| 44 | load-path))) | ||
| 45 | (require 'package-test)) | ||
| 46 | 31 | ||
| 47 | (defvar package-x-test--single-archive-entry-1-3 | 32 | (defvar package-x-test--single-archive-entry-1-3 |
| 48 | (cons 'simple-single | 33 | (cons 'simple-single |