[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin ec13cc2 260/357: Let ert-support.el work for subdirect
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin ec13cc2 260/357: Let ert-support.el work for subdirectories |
Date: |
Thu, 10 Dec 2020 18:06:55 -0500 (EST) |
branch: elpa-admin
commit ec13cc2946c9b23acbe0f2552fcefe6786bdc47b
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Let ert-support.el work for subdirectories
* admin/ert-support.el (all): Use `expand-file-name'.
(ert-support-test-find-tests): Add autoload file. Return absolute
file names. Do not return "." and ".." from subdirectories.
(ert-support-load-tests): Let-bind `force-load-messages'.
---
admin/ert-support.el | 39 ++++++++++++++++++++-------------------
1 file changed, 20 insertions(+), 19 deletions(-)
diff --git a/admin/ert-support.el b/admin/ert-support.el
index 93d1af8..a0ff9ab 100644
--- a/admin/ert-support.el
+++ b/admin/ert-support.el
@@ -1,6 +1,6 @@
;; The contents of this file are subject to the GPL License, Version 3.0.
-;; Copyright (C) 2016, Free Software Foundation, Inc.
+;; Copyright (C) 2016-2017, Free Software Foundation, Inc.
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -18,37 +18,38 @@
(defun ert-support-package-install (top-directory package)
;; blitz default value and set up from elpa.
(setq package-archives
- `(("local-elpa" . ,(concat top-directory "/archive/packages"))))
- (setq package-user-dir
- (make-temp-file "elpa-test" t))
+ `(("local-elpa"
+ . ,(expand-file-name "archive/packages" top-directory)))
+ package-user-dir (make-temp-file "elpa-test" t))
(package-initialize)
(package-refresh-contents)
(package-install package))
(defun ert-support-test-find-tests (package-directory package)
- (or
- (directory-files package-directory nil ".*-test.el$")
- (directory-files package-directory nil ".*-tests.el$")
- (let ((dir-test
- (concat package-directory "/test")))
- (when (file-exists-p dir-test)
- (directory-files dir-test)))
- (let ((dir-tests
- (concat package-directory "/tests")))
- (when (file-exists-p dir-tests)
- (directory-files dir-tests)))))
+ (append
+ `(,(expand-file-name
+ (concat (symbol-name package) "-autoloads.el") package-directory))
+ (or
+ (directory-files package-directory t ".*-test.el$")
+ (directory-files package-directory t ".*-tests.el$")
+ (let ((dir-test (expand-file-name "test" package-directory)))
+ (when (file-directory-p dir-test)
+ (directory-files dir-test t directory-files-no-dot-files-regexp)))
+ (let ((dir-tests (expand-file-name "tests" package-directory)))
+ (when (file-directory-p dir-tests)
+ (directory-files dir-tests t directory-files-no-dot-files-regexp))))))
(defun ert-support-load-tests (package-directory package)
(mapc
- (lambda(file)
- (message "Loading test file... %s" (concat package-directory file))
- (load-file (concat package-directory file)))
+ (lambda (file)
+ (let ((force-load-messages t))
+ (load-file file)))
(ert-support-test-find-tests package-directory package)))
(defun ert-support-test-package (top-directory package)
(ert-support-package-install top-directory package)
(ert-support-load-tests
- (concat top-directory "/packages/" (symbol-name package) "/")
+ (expand-file-name (concat "packages/" (symbol-name package)) top-directory)
package)
(ert-run-tests-batch-and-exit t))
- [elpa] elpa-admin 5cf5115 228/357: * admin/archive-contents.el (archive--pull): New function, (continued)
- [elpa] elpa-admin 5cf5115 228/357: * admin/archive-contents.el (archive--pull): New function, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin d079afa 187/357: Squashed 'packages/pinentry/' changes from 075deb6..b3a45a5, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 9731033 204/357: Use symbolic links for core packages, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 5571ea8 211/357: Add symlink to README, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 9ab6e7e 217/357: Update packages/yasnippet by subtree-merging from its external upstream, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin f1c2e2f 210/357: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa: transcribe.el update, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 0d7eb99 235/357: Add 'packages/realgud/' from commit 'b7a7fe924217931332915d457928c6851db4a636', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin b14148a 249/357: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 8208d1c 245/357: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 299da86 255/357: Package pages improvements, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin ec13cc2 260/357: Let ert-support.el work for subdirectories,
Stefan Monnier <=
- [elpa] elpa-admin 294407d 256/357: README: Fix copyright years., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 5250761 270/357: * admin/archive-contents.el: Use `git worktree` for externals, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 334aa51 273/357: Merge commit 'a1130df3ada34e76675324a8c25823b420b20239', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 5067b05 258/357: Change to package directory before checking .elpaignore exclusions., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 82a2bda 259/357: Put tar'd files at the end to fix build in some environments., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 7626ffa 254/357: Website footer improvement, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin dbd4e0b 295/357: Merge remote-tracking branch 'refs/remotes/origin/master', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 02d8431 297/357: * admin/archive-contents.el (archive--insert-repolinks): Fix further yet, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 38e81a8 300/357: * README: Recommend "externals" and add some recommendations, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a216465 299/357: * admin/archive-contents.el (archive--insert-repolinks): Whoops, Stefan Monnier, 2020/12/10