generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source 
Some test programs may depend on more than just one TLS version, for
example.

Reviewed-by: Viktor Dukhovni <viktor@openssl.org>
This commit is contained in:
Richard Levitte 2016-01-24 16:23:55 +01:00
parent cf2cede4a7
commit 2dc4be513b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/testlib/OpenSSL/Test/Simple.pm
View File

@ -17,7 +17,7 @@ OpenSSL::Test::Simple - a few very simple test functions
use OpenSSL::Test::Simple; use OpenSSL::Test::Simple;
simple_test("my_test_name", "des", "destest"); simple_test("my_test_name", "destest", "des");
=head1 DESCRIPTION =head1 DESCRIPTION
@ -52,12 +52,18 @@ A complete recipe looks like this:
# algorithm (used to check if it's at all supported) # algorithm (used to check if it's at all supported)
# name of binary (the program that does the actual test) # name of binary (the program that does the actual test)
sub simple_test { sub simple_test {
my ($name, $prgr, $algo, @rest) = @_; my ($name, $prgr, @algos) = @_;
setup($name); setup($name);
plan skip_all => "$algo is not supported by this OpenSSL build" if (scalar(disabled(@algos))) {
if $algo && disabled($algo); 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; plan tests => 1;