diff options
| -rw-r--r-- | Makefile.in | 5 | ||||
| -rwxr-xr-x | build/httpdunit_gen_cases.pl | 15 |
2 files changed, 17 insertions, 3 deletions
diff --git a/Makefile.in b/Makefile.in index f6fac28132..9bba3ac080 100644 --- a/Makefile.in +++ b/Makefile.in @@ -456,8 +456,11 @@ $(testcase_STUBS): %.tests: %.c test/httpdunit.cases: $(testcase_SOURCES) | unittest-objdir for t in $^; do \ - $(top_srcdir)/build/httpdunit_gen_cases.pl < "$$t"; \ + $(top_srcdir)/build/httpdunit_gen_cases.pl --declaration < "$$t"; \ done > $@ + for t in $^; do \ + $(top_srcdir)/build/httpdunit_gen_cases.pl < "$$t"; \ + done >> $@ test/httpdunit.lo: test/httpdunit.c test/httpdunit.cases | unittest-objdir diff --git a/build/httpdunit_gen_cases.pl b/build/httpdunit_gen_cases.pl index a40d12c773..8e492a664d 100755 --- a/build/httpdunit_gen_cases.pl +++ b/build/httpdunit_gen_cases.pl @@ -14,10 +14,21 @@ use strict; use warnings; +use Getopt::Long; + +my $print_declaration = 0; + +GetOptions("declaration" => \$print_declaration) + or die("unknown option"); + while (my $line = <>) { if ($line =~ /^HTTPD_BEGIN_TEST_CASE(?:\w+)?\((\w+)/) { my $name = "$1_test_case"; - print "TCase *$name(void); "; - print "suite_add_tcase(suite, $name());\n"; + + if ($print_declaration) { + print "TCase *$name(void);\n"; + } else { + print "suite_add_tcase(suite, $name());\n"; + } } } |