提交 2dc4be51 编写于 作者: R Richard Levitte

Fix OpenSSL::Test::Simple to take more than one algorithm

Some test programs may depend on more than just one TLS version, for
example.
Reviewed-by: NViktor Dukhovni <viktor@openssl.org>
上级 cf2cede4
......@@ -17,7 +17,7 @@ OpenSSL::Test::Simple - a few very simple test functions
use OpenSSL::Test::Simple;
simple_test("my_test_name", "des", "destest");
simple_test("my_test_name", "destest", "des");
=head1 DESCRIPTION
......@@ -52,12 +52,18 @@ A complete recipe looks like this:
# algorithm (used to check if it's at all supported)
# name of binary (the program that does the actual test)
sub simple_test {
my ($name, $prgr, $algo, @rest) = @_;
my ($name, $prgr, @algos) = @_;
setup($name);
plan skip_all => "$algo is not supported by this OpenSSL build"
if $algo && disabled($algo);
if (scalar(disabled(@algos))) {
if (scalar(@algos) == 1) {
plan skip_all => $algos[0]." is not supported by this OpenSSL build";
} else {
my $last = pop @algos;
plan skip_all => join(", ", @algos)." and $last are not supported by this OpenSSL build";
}
}
plan tests => 1;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册