GUACAMOLE-662: Add utility script for automatically generating CUnit test runners.

This commit is contained in:
Michael Jumper 2018-11-13 13:24:23 -08:00
parent 2827af33d6
commit d7118fda70
2 changed files with 156 additions and 9 deletions

View File

@ -91,13 +91,14 @@ if ENABLE_GUACLOG
SUBDIRS += src/guaclog SUBDIRS += src/guaclog
endif endif
EXTRA_DIST = \ EXTRA_DIST = \
.dockerignore \ .dockerignore \
CONTRIBUTING \ CONTRIBUTING \
Dockerfile \ Dockerfile \
LICENSE \ LICENSE \
NOTICE \ NOTICE \
bin/guacctl \ bin/guacctl \
doc/Doxyfile.in \ doc/Doxyfile.in \
src/guacd-docker src/guacd-docker \
util/generate-test-runner.pl

146
util/generate-test-runner.pl Executable file
View File

@ -0,0 +1,146 @@
#!/usr/bin/perl
#
# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements. See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership. The ASF licenses this file
# to you under the Apache License, Version 2.0 (the
# "License"); you may not use this file except in compliance
# with the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing,
# software distributed under the License is distributed on an
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, either express or implied. See the License for the
# specific language governing permissions and limitations
# under the License.
#
#
# generate-test-runner.pl
#
# Generates a test runner for the .c files given on the command line. Each .c
# file may declare any number of tests so long as each test uses CUnit and is
# declared with the following convention:
#
# void test_SUITENAME__TESTNAME() {
# ...
# }
#
# where TESTNAME is the arbitrary name of the test and SUITENAME is the
# arbitrary name of the test suite that this test belongs to.
#
# Absolutely all tests MUST follow the above convention if they are to be
# picked up by this script. Functions which are not tests MUST NOT follow
# the above convention.
#
use strict;
# Parse all test declarations from given file
my %test_suites = ();
while (<>) {
if ((my $suite_name, my $test_name) = m/^void\s+test_(\w+)__(\w+)/) {
$test_suites{$suite_name} //= ();
push @{$test_suites{$suite_name}}, $test_name;
}
}
#
# Common test runner header
#
print <<'END';
/*
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
* regarding copyright ownership. The ASF licenses this file
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
*/
#include <stdlib.h>
#include <CUnit/Basic.h>
END
#
# Prototypes for all test functions
#
while ((my $suite_name, my $test_names) = each (%test_suites)) {
print "\n/* Automatically-generated prototypes for the $suite_name suite */\n";
foreach my $test_name (@{ $test_names }) {
print "void test_${suite_name}__${test_name}();\n";
}
}
#
# Beginning of main() function body for test runner
#
print <<"END";
/* Automatically-generated test runner */
int main() {
/* Init CUnit test registry */
if (CU_initialize_registry() != CUE_SUCCESS)
return CU_get_error();
END
#
# Within main(), register each test and its corresponding test suite
#
while ((my $suite_name, my $test_names) = each (%test_suites)) {
print <<" END";
/* Create and register all tests for the $suite_name suite */
CU_pSuite $suite_name = CU_add_suite("$suite_name", NULL, NULL);
if ($suite_name == NULL
END
foreach my $test_name (@{ $test_names }) {
print <<" END";
|| CU_add_test($suite_name, "$test_name", test_${suite_name}__${test_name}) == NULL
END
}
print <<" END";
) goto cleanup;
END
}
#
# End of main() function
#
print <<"END";
/* Run all tests in all suites */
CU_basic_set_mode(CU_BRM_VERBOSE);
CU_basic_run_tests();
cleanup:
/* Tests complete */
CU_cleanup_registry();
return CU_get_error();
}
END