From adf24ce6182839f6c54106cc2a8d2dc81b815793 Mon Sep 17 00:00:00 2001 From: NIIBE Yutaka Date: Tue, 26 Apr 2022 11:12:57 +0900 Subject: [PATCH] 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 --- g13/all-tests.scm | 27 ++++++++++++++++++++------- 1 file changed, 20 insertions(+), 7 deletions(-) diff --git a/g13/all-tests.scm b/g13/all-tests.scm index 69b1f24d4..9a88577da 100644 --- a/g13/all-tests.scm +++ b/g13/all-tests.scm @@ -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") + '())))