Various path hacks

diff --git a/Makefile.in b/Makefile.in
index 338138731b43f7edd20b41c524a9b5b522ab2ddc..4e83cb31d39d6712e4289975050a9bb2a9d39661 100644 (file)
--- a/Makefile.in
+++ b/Makefile.in
@@ -380,6 +380,11 @@ src: lib-src
 # We need to build 'emacs' in 'src' to compile the *.elc files in 'lisp'.
 lisp: src
 
+# We should assume that all files in core are byte compiled before we
+# start to build packages. And we assume that src is build because we
+# need 'emacs'.
+packages: lisp src
+
 # These targets should be "${SUBDIR} without 'src'".
 lib lib-src lisp nt packages: Makefile
        $(MAKE) -C $@ all

diff --git a/packages/GNUmakefile b/packages/GNUmakefile
index 4a2aac65cb3855020e555d7dce866a2951bb466b..21dfd124d85690d35d979edaab525a970a6ac24b 100644 (file)
--- a/packages/GNUmakefile
+++ b/packages/GNUmakefile
@@ -7,6 +7,8 @@ EMACS=../src/emacs
 DIRS=$(filter-out .,$(subst ./,,$(shell find . -maxdepth 1 -type d)))
 
 ## alas "all" is an ELPA package, so this is going to break
+all: build-all
+
 build-all: $(DIRS) $(EMACS)
 
 

diff --git a/packages/package-test.el b/packages/package-test.el
index c453f29c74050d12205c5682e1ccb13edc4aa64e..75bd07f50ffa47dc14fcae8917adf1b74eb6a033 100644 (file)
--- a/packages/package-test.el
+++ b/packages/package-test.el
@@ -19,14 +19,14 @@ tests directory."
    (directory-files directory nil ".*-tests.el$")
    (directory-files directory nil "test-.*.el$")
    (let ((dir-test
-          (concat directory "test/")))
+          (concat directory "/test/")))
      (when (file-exists-p dir-test)
        (mapcar
         (lambda (file)
           (concat dir-test file))
         (directory-files dir-test nil ".*.el"))))
    (let ((dir-tests
-          (concat directory "tests/")))
+          (concat directory "/tests/")))
      (when (file-exists-p dir-tests)
        (mapcar
         (lambda (file)
@@ -34,9 +34,11 @@ tests directory."
         (directory-files dir-tests nil ".*.el"))))))
 
 (defun assess-discover--load-all-tests (directory)
-  (mapc
-   'load
-   (assess-discover-tests directory)))
+  (let ((loads
+         (assess-discover-tests directory)))
+    (mapc
+     'load
+     loads)))
 
 (defun assess-discover-load-tests ()
   (interactive)
@@ -52,5 +54,7 @@ tests directory."
   (assess-discover-run-and-exit-batch-dir default-directory))
 
 (defun assess-discover-run-and-exit-batch-dir (directory &optional selector)
-  (assess-discover--load-all-tests directory)
+  (assess-discover--load-all-tests
+   (concat default-directory
+           directory))
   (ert-run-tests-batch-and-exit selector))