1;; Copyright (C) 2017 g10 Code GmbH
2;;
3;; This file is part of GnuPG.
4;;
5;; GnuPG is free software; you can redistribute it and/or modify
6;; it under the terms of the GNU General Public License as published by
7;; the Free Software Foundation; either version 3 of the License, or
8;; (at your option) any later version.
9;;
10;; GnuPG is distributed in the hope that it will be useful,
11;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13;; GNU General Public License for more details.
14;;
15;; You should have received a copy of the GNU General Public License
16;; along with this program; if not, see <http://www.gnu.org/licenses/>.
17
18(export all-tests
19 ;; Parse the Makefile.am to find all tests.
20
21 (load (with-path "makefile.scm"))
22
23 (define (expander filename port key)
24   (parse-makefile port key))
25
26 (define (parse filename key)
27   (parse-makefile-expand filename expander key))
28
29 (map (lambda (name)
30	(test::binary #f
31		      (path-join "g10" name)
32		      (path-join (getenv "objdir") "g10" name)))
33      (parse-makefile-expand (in-srcdir "g10" "Makefile.am")
34			     (lambda (filename port key) (parse-makefile port key))
35			     "module_tests")))
36