From 12f34b035ad4d45d8b09cd530348a78730ee6cef Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Thu, 18 Jun 2015 08:19:59 +0200 Subject: Copy casks elpa when runnging tests * test/run-tests.el (package-user-dir): Copy the directory tree. --- test/run-tests.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/test/run-tests.el b/test/run-tests.el index c9bbbb4..b92f96a 100644 --- a/test/run-tests.el +++ b/test/run-tests.el @@ -15,7 +15,14 @@ (error "load-file-name is unset")) (cd (file-name-directory load-file-name)) -(setq package-user-dir (make-temp-file "package" t)) +(setq package-user-dir (expand-file-name "elpa" (make-temp-file "package" t))) + +(defvar cask-elpa (format "../.cask/%s/elpa" emacs-version)) + +(unless (file-directory-p cask-elpa) + (error "Do `cask install' first")) +(copy-directory (format "../.cask/%s/elpa" emacs-version) + (file-name-directory package-user-dir)) (add-hook 'kill-emacs-hook (lambda nil (when (file-exists-p package-user-dir) (delete-directory package-user-dir t)))) -- cgit v1.0