-# XXX: somewhat misleading name
-sub execute_regression_test ($) {
-
- my $test = shift;
- my $type = $test->{'type'};
- my %test_subs = (
- (CLIENT_HEADER_TEST) => \&execute_client_header_regression_test,
- (SERVER_HEADER_TEST) => \&execute_server_header_regression_test,
- (DUMB_FETCH_TEST) => \&execute_dumb_fetch_test,
- (TRUSTED_CGI_REQUEST) => \&execute_dumb_fetch_test,
- (METHOD_TEST) => \&execute_method_test,
- (BLOCK_TEST) => \&execute_block_test,
- (STICKY_ACTIONS_TEST) => \&execute_sticky_actions_test,
- (REDIRECT_TEST) => \&execute_redirect_test);
-
- die "Unsupported test type detected: " . $type
- unless defined ($test_subs{$type});
-
- return $test_subs{$type}($test);
-}
-