-# XXX: somewhat misleading name
-sub execute_regression_test ($) {
-
- my $test = shift;
- my $result = 0;
-
- if ($test->{'type'} == CLIENT_HEADER_TEST) {
-
- $result = execute_client_header_regression_test($test);
-
- } elsif ($test->{'type'} == SERVER_HEADER_TEST) {
-
- $result = execute_server_header_regression_test($test);
-
- } elsif ($test->{'type'} == DUMB_FETCH_TEST
- or $test->{'type'} == TRUSTED_CGI_REQUEST) {
-
- $result = execute_dumb_fetch_test($test);
-
- } elsif ($test->{'type'} == METHOD_TEST) {
-
- $result = execute_method_test($test);
-
- } elsif ($test->{'type'} == BLOCK_TEST) {
-
- $result = execute_block_test($test);
-
- } elsif ($test->{'type'} == STICKY_ACTIONS_TEST) {
-
- $result = execute_sticky_actions_test($test);
-
- } elsif ($test->{'type'} == REDIRECT_TEST) {
-
- $result = execute_redirect_test($test);
-
- } else {
-
- die "Unsupported test type detected: " . $test->{'type'};
- }
-
- return $result;
-}
-