security-and-privacy/gnupg
security-and-privacy
/
gnupg
mirror of git://git.gnupg.org/gnupg.git
1
0
Fork 0
Code Releases Activity

tests: Support semihosted environment. 

* Makefile.am (check-all): Add EXEEXT.
* agent/all-tests.scm: Append EXEEXT.
* common/all-tests.scm: Likewise.
* g10/all-tests.scm: Likewise.
* g13/all-tests.scm: Likewise.

--

Signed-off-by: NIIBE Yutaka <gniibe@fsij.org>
This commit is contained in:
NIIBE Yutaka 2022-12-01 13:59:06 +09:00
parent a9a1ee8726
commit f182c284fb
No known key found for this signature in database
GPG Key ID: 640114AF89DE6054
5 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.am
View File

@ -218,7 +218,7 @@ TESTS_ENVIRONMENT = \
.PHONY: check-all release sign-release
check-all:
$(TESTS_ENVIRONMENT) \
$(abs_top_builddir)/tests/gpgscm/gpgscm \
$(abs_top_builddir)/tests/gpgscm/gpgscm$(EXEEXT) \
$(abs_srcdir)/tests/run-tests.scm $(TESTFLAGS) $(TESTS)
# Names of to help the release target.

7
agent/all-tests.scm
View File

@ -27,9 +27,10 @@
(parse-makefile-expand filename expander key))
(map (lambda (name)
(test::binary #f
(path-join "agent" name)
(path-join (getenv "objdir") "agent" name)))
(let ((name-ext (string-append name (getenv "EXEEXT"))))
(test::binary #f
(path-join "agent" name-ext)
(path-join (getenv "objdir") "agent" name-ext))))
(parse-makefile-expand (in-srcdir "agent" "Makefile.am")
(lambda (filename port key) (parse-makefile port key))
"module_tests")))

7
common/all-tests.scm
View File

@ -19,9 +19,10 @@
;; XXX: Currently, the makefile parser does not understand this
;; Makefile.am, so we hardcode the list of tests here.
(map (lambda (name)
(test::binary #f
(path-join "common" name)
(path-join (getenv "objdir") "common" name)))
(let ((name-ext (string-append name (getenv "EXEEXT"))))
(test::binary #f
(path-join "common" name-ext)
(path-join (getenv "objdir") "common" name-ext))))
(list "t-stringhelp"
"t-timestuff"
"t-convert"

7
g10/all-tests.scm
View File

@ -27,9 +27,10 @@
(parse-makefile-expand filename expander key))
(map (lambda (name)
(test::binary #f
(path-join "g10" name)
(path-join (getenv "objdir") "g10" name)))
(let ((name-ext (string-append name (getenv "EXEEXT"))))
(test::binary #f
(path-join "g10" name-ext)
(path-join (getenv "objdir") "g10" name-ext))))
(parse-makefile-expand (in-srcdir "g10" "Makefile.am")
(lambda (filename port key) (parse-makefile port key))
"module_tests")))

7
g13/all-tests.scm
View File

@ -34,9 +34,10 @@
"g13"))))
(if g13-enabled?
(map (lambda (name)
(test::binary #f
(path-join "g13" name)
(path-join (getenv "objdir") "g13" name)))
(let ((name-ext (string-append name (getenv "EXEEXT"))))
(test::binary #f
(path-join "g13" name-ext)
(path-join (getenv "objdir") "g13" name-ext))))
(parse-makefile-expand (in-srcdir "g13" "Makefile.am")
(lambda (filename port key) (parse-makefile port key))
"module_tests"))