mirror of
git://git.gnupg.org/gnupg.git
synced 2024-12-22 10:19:57 +01:00
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:
parent
16720e1f54
commit
adf24ce618
@ -26,10 +26,23 @@
|
||||
(define (parse filename key)
|
||||
(parse-makefile-expand filename expander key))
|
||||
|
||||
(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")))
|
||||
"module_tests"))
|
||||
(begin
|
||||
(info "SKIP: g13")
|
||||
'())))
|
||||
|
Loading…
x
Reference in New Issue
Block a user