build/httpdunit_gen_stubs.pl

#! /usr/bin/env perl

#
# Generates a code stub that adds unit tests to a Check test case.
#
# Supply the test case's source file contents on stdin; the resulting code will
# be printed to stdout. This code is designed to be included as part of the
# boilerplate at the end of each test case.
#

use strict;
use warnings;

while (my $line = <>) {
    # FIXME: this does not correctly handle macro invocations that are split
    # over multiple lines.
    if ($line =~ /^HTTPD_START_LOOP_TEST\((\w+),(.*)\)/) {
        print "tcase_add_loop_test(testcase, $1, 0, ($2));\n";
    } elsif ($line =~ /^START_TEST\((\w+)\)/) {
        print "tcase_add_test(testcase, $1);\n"
    }
}