security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-17 14:07:03 +01:00
Code Activity

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

Browse Source 
* 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) (define (parse filename key)
(parse-makefile-expand filename expander key)) (parse-makefile-expand filename expander key))
(map (lambda (name) (define (in-objdir . names)
(test::binary #f (canonical-path (apply path-join (cons (getenv "objdir") names))))
(path-join "g13" name)
(path-join (getenv "objdir") "g13" name))) (define g13-enabled?
(parse-makefile-expand (in-srcdir "g13" "Makefile.am") ;; Parse the variable "g13" in the Makefile
(lambda (filename port key) (parse-makefile port key)) (not (null?
"module_tests"))) (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")
'())))