mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-28 00:01:33 -08:00
Tests now depend on source files
* test/Makefile.in: Include dependences from tests to source files. * test/make-test-deps.emacs-lisp: New file * .gitignore: Ignore generated make include file
This commit is contained in:
parent
cbfb129555
commit
0baf45dbe3
3 changed files with 96 additions and 0 deletions
2
.gitignore
vendored
2
.gitignore
vendored
|
|
@ -153,6 +153,8 @@ test/manual/etags/srclist
|
|||
test/manual/etags/regexfile
|
||||
test/manual/etags/ETAGS
|
||||
test/manual/etags/CTAGS
|
||||
# Generated by test/make-test-deps.emacs-lisp
|
||||
test/make-test-deps.mk
|
||||
|
||||
# ctags, etags.
|
||||
TAGS
|
||||
|
|
|
|||
|
|
@ -125,6 +125,7 @@ endef
|
|||
|
||||
$(foreach test,${TESTS},$(eval $(call test_template,${test})))
|
||||
|
||||
-include make-test-deps.mk
|
||||
|
||||
## Re-run all the tests every time.
|
||||
check:
|
||||
|
|
@ -149,4 +150,8 @@ distclean: clean
|
|||
|
||||
maintainer-clean: distclean bootstrap-clean
|
||||
|
||||
make-test-deps.mk: $(ELFILES) make-test-deps.emacs-lisp
|
||||
../src/emacs --batch -l make-test-deps.emacs-lisp \
|
||||
--eval "(make-test-deps \"`pwd`\")" \
|
||||
2> $@
|
||||
# Makefile ends here.
|
||||
|
|
|
|||
89
test/make-test-deps.emacs-lisp
Normal file
89
test/make-test-deps.emacs-lisp
Normal file
|
|
@ -0,0 +1,89 @@
|
|||
;; -*- emacs-lisp -*-
|
||||
|
||||
;; The contents of this file are subject to the GPL License, Version 3.0.
|
||||
;;
|
||||
;; Copyright (C) 2015, Free Software Foundation
|
||||
;;
|
||||
;; 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
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
;;
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
;;
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file generates dependencies between test files and the files
|
||||
;; that they test.
|
||||
|
||||
;; It has an .emacs-lisp extension because it makes the Makefile easier!
|
||||
|
||||
(require 'seq)
|
||||
|
||||
(defun make-test-deps (directory)
|
||||
(message
|
||||
"%s"
|
||||
(concat
|
||||
(make-test-deps-lisp directory)
|
||||
(make-test-deps-src directory))))
|
||||
|
||||
(defun make-test-deps-lisp (directory)
|
||||
(mapconcat
|
||||
(lambda (stem)
|
||||
(format "%s-tests.log: ../%s.elc\n" stem stem))
|
||||
(make-test-test-files directory "lisp") ""))
|
||||
|
||||
(defun make-test-deps-src (directory)
|
||||
(mapconcat
|
||||
(lambda (stem)
|
||||
(format "%s-tests.log: ../%s.o\n" stem stem))
|
||||
(make-test-test-files directory "src") ""))
|
||||
|
||||
(defun make-test-test-files (stem dir)
|
||||
(make-test-munge-files
|
||||
stem
|
||||
(directory-files-recursively dir ".*-tests.el$")))
|
||||
|
||||
(defun make-test-munge-files (stem files)
|
||||
(make-test-sans-suffix
|
||||
(make-test-de-stem
|
||||
stem
|
||||
(make-test-no-legacy
|
||||
(make-test-no-test-dir
|
||||
(make-test-no-resources
|
||||
files))))))
|
||||
|
||||
(defun make-test-sans-suffix (files)
|
||||
(mapcar
|
||||
(lambda (file)
|
||||
(substring file 0 -9))
|
||||
files))
|
||||
|
||||
(defun make-test-de-stem (stem files)
|
||||
(mapcar
|
||||
(lambda (file)
|
||||
(substring
|
||||
file
|
||||
(+ 1 (length stem))))
|
||||
files))
|
||||
|
||||
(defun make-test-no-legacy (list)
|
||||
(make-test-remove list "legacy/"))
|
||||
|
||||
(defun make-test-no-resources (list)
|
||||
(make-test-remove list "-resources/"))
|
||||
|
||||
(defun make-test-no-test-dir (list)
|
||||
(make-test-remove list "-tests/"))
|
||||
|
||||
(defun make-test-remove (list match)
|
||||
(seq-remove
|
||||
(lambda (file)
|
||||
(string-match-p match file))
|
||||
list))
|
||||
Loading…
Add table
Add a link
Reference in a new issue