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

tests: Skip testsing g13 when it's not enabled. 

* g13/all-tests.scm: Skip the test by examining $objdir/Makefile.

--

Signed-off-by: NIIBE Yutaka <gniibe@fsij.org>
This commit is contained in:
NIIBE Yutaka 2022-04-26 11:12:57 +09:00
parent 16720e1f54
commit adf24ce618
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
g13/all-tests.scm
View File

@ -26,10 +26,23 @@
(define (parse filename key)
(parse-makefile-expand filename expander key))
(map (lambda (name)
(test::binary #f
(path-join "g13" name)
(path-join (getenv "objdir") "g13" name)))
(parse-makefile-expand (in-srcdir "g13" "Makefile.am")
(lambda (filename port key) (parse-makefile port key))
"module_tests")))
(define (in-objdir . names)
(canonical-path (apply path-join (cons (getenv "objdir") names))))
(define g13-enabled?
;; Parse the variable "g13" in the Makefile
(not (null?
(parse-makefile-expand (in-objdir "Makefile")
(lambda (filename port key) (parse-makefile port key))
"g13"))))
(if g13-enabled?
(map (lambda (name)
(test::binary #f
(path-join "g13" name)
(path-join (getenv "objdir") "g13" name)))
(parse-makefile-expand (in-srcdir "g13" "Makefile.am")
(lambda (filename port key) (parse-makefile port key))
"module_tests"))
(begin
(info "SKIP: g13")
'())))