mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 10:11:05 -08:00
Code Issues Projects Releases Wiki Activity

Fix emba igc-tests

Browse source 
* configure.ac (HAVE_MPS): AC_SUBST it.
* test/Makefile.in (HAVE_MPS): New, AC_SUBSTed. Handle case of non-MPS
and MPS build.
* test/src/igc-tests.el (set-commit-limit-test): Add tag :igc.
This commit is contained in:
Gerd Möllmann 2025-01-17 11:53:57 +01:00
parent 9c062a282a
commit 0b079e1e23
3 changed files with 23 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
configure.ac
View file

@ -5621,6 +5621,7 @@ fi
AC_SUBST([LIBGPM])
### Use -lmps if available, unless '--with-mps=no'.
AC_SUBST([HAVE_MPS])
HAVE_MPS=no
LIBMPS=
IGCOBJ=

27
test/Makefile.in
View file

@ -48,6 +48,7 @@ SO = @MODULES_SUFFIX@
SEPCHAR = @SEPCHAR@
HAVE_NATIVE_COMP = @HAVE_NATIVE_COMP@
HAVE_MPS = @HAVE_MPS@
-include ${top_builddir}/src/verbose.mk
@ -130,20 +131,34 @@ all: check
SYSTEM_TYPE = @SYSTEM_TYPE@
TEST_NATIVE_COMP = $(HAVE_NATIVE_COMP)
TEST_IGC = $(HAVE_MPS)
# Avoid fork failures on Cygwin. See bug#62450 and etc/PROBLEMS
# ("Fork failures in a build with native compilation").
ifeq ($(SYSTEM_TYPE),cygwin)
TEST_NATIVE_COMP = no
endif
ifeq ($(TEST_NATIVE_COMP),yes)
SELECTOR_DEFAULT = (not (or (tag :expensive-test) (tag :unstable)))
SELECTOR_EXPENSIVE = (not (tag :unstable))
SELECTOR_ALL = t
SELECTOR_DEFAULT := (not (or (tag :expensive-test) (tag :unstable)))
SELECTOR_EXPENSIVE := (not (tag :unstable))
SELECTOR_ALL := t
else
SELECTOR_DEFAULT = (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))
SELECTOR_EXPENSIVE = (not (or (tag :unstable) (tag :nativecomp)))
SELECTOR_ALL = (not (tag :nativecomp))
SELECTOR_DEFAULT := (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))
SELECTOR_EXPENSIVE := (not (or (tag :unstable) (tag :nativecomp)))
SELECTOR_ALL := (not (tag :nativecomp))
endif
# Add systems that don't support igc as needed.
#ifeq ($(SYSTEM_TYPE),cygwin)
#TEST_IGC = no
#endif
ifeq ($(TEST_IGC),no)
SELECTOR_DEFAULT := (and (not (tag :igc)) $(SELECTOR_DEFAULT))
SELECTOR_EXPENSIVE := (and (not (tag :igc)) $(SELECTOR_EXPENSIVE))
SELECTOR_ALL := (and (not (tag :igc)) $(SELECTOR_ALL))
endif
ifdef SELECTOR
SELECTOR_ACTUAL=$(SELECTOR)
else ifndef MAKECMDGOALS

1
test/src/igc-tests.el
View file

@ -25,6 +25,7 @@
(declare-function igc-info "igc.c")
(ert-deftest set-commit-limit-test ()
:tags '(:igc)
(should (equal (igc--set-commit-limit (ash 1 30)) nil))
(should (equal (assoc-string "commit-limit" (igc-info))
'("commit-limit" 1 1073741824 0)))