root
/
openssl
mirror of https://github.com/openssl/openssl.git
1
0
Fork 0
Code Issues Actions 7 Packages Projects Releases Wiki Activity

Add a test case for duplicate engine loading 

Reviewed-by: Tomas Mraz <tomas@openssl.org>
Reviewed-by: Dmitry Belyavskiy <beldmit@gmail.com>
(Merged from https://github.com/openssl/openssl/pull/17073)

(cherry picked from commit 2595eef82c)
This commit is contained in:
Bernd Edlinger 2021-11-19 16:38:55 +01:00
parent 81c11349c2
commit 38e2957249
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
test/recipes/20-test_dgst.t
View File

@ -12,12 +12,12 @@ use warnings;
use File::Spec;
use File::Basename;
use OpenSSL::Test qw/:DEFAULT with srctop_file/;
use OpenSSL::Test qw/:DEFAULT with srctop_file bldtop_file/;
use OpenSSL::Test::Utils;
setup("test_dgst");
plan tests => 9;
plan tests => 10;
sub tsignverify {
my $testtext = shift;
@ -103,6 +103,25 @@ SKIP: {
};
}
SKIP: {
skip "dgst with engine is not supported by this OpenSSL build", 1
if disabled("engine") || disabled("dynamic-engine");
subtest "SHA1 generation by engine with `dgst` CLI" => sub {
plan tests => 1;
my $testdata = srctop_file('test', 'data.bin');
# intentionally using -engine twice, please do not remove the duplicate line
my @macdata = run(app(['openssl', 'dgst', '-sha1',
'-engine', $^O eq 'linux' ? bldtop_file("engines", "ossltest.so") : "ossltest",
'-engine', $^O eq 'linux' ? bldtop_file("engines", "ossltest.so") : "ossltest",
$testdata]), capture => 1);
chomp(@macdata);
my $expected = qr/SHA1\(\Q$testdata\E\)= 000102030405060708090a0b0c0d0e0f10111213/;
ok($macdata[0] =~ $expected, "SHA1: Check HASH value is as expected ($macdata[0]) vs ($expected)");
}
}
subtest "HMAC generation with `dgst` CLI" => sub {
plan tests => 2;