aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorGlenn Morris2014-06-26 00:34:09 -0700
committerGlenn Morris2014-06-26 00:34:09 -0700
commitdceff1c15aad83623d773ab6bea70be229372584 (patch)
tree181645c556234acceca7f83850a913cad66da659 /test
parentd9ca41e7a9760b23979e40053c209976f5064c42 (diff)
downloademacs-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/ChangeLog2
-rw-r--r--test/automated/package-x-test.el17
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 @@
12014-06-26 Glenn Morris <rgm@gnu.org> 12014-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
52014-06-26 Stefan Monnier <monnier@iro.umontreal.ca> 72014-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