mirror of
https://github.com/openssl/openssl.git
synced 2026-01-18 17:11:31 +01:00
Add a test to ensure that instantiation of drbgs work
Reviewed-by: Nikola Pajkovsky <nikolap@openssl.org> Reviewed-by: Paul Dale <paul.dale@oracle.com> (Merged from https://github.com/openssl/openssl/pull/29570)
This commit is contained in:
committed by
Norbert Pocs
parent
2c4531ee30
commit
e0c3b4b541
@@ -10,7 +10,7 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use OpenSSL::Test;
|
||||
use OpenSSL::Test qw/:DEFAULT result_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
setup("test_rand_config");
|
||||
@@ -57,7 +57,7 @@ my @aria_tests = (
|
||||
|
||||
push @rand_tests, @aria_tests unless disabled("aria");
|
||||
|
||||
plan tests => scalar @rand_tests;
|
||||
plan tests => scalar @rand_tests * 2;
|
||||
|
||||
my $contents =<<'CONFIGEND';
|
||||
openssl_conf = openssl_init
|
||||
@@ -86,6 +86,9 @@ foreach (@rand_tests) {
|
||||
$ENV{OPENSSL_CONF} = $tmpfile;
|
||||
|
||||
ok(comparelines($_->{expected}), $_->{desc});
|
||||
# Also check that instantiating the drbg works
|
||||
my $result_dir = result_dir();
|
||||
ok(run(app(["openssl", "rand", "-writerand", "$result_dir/$tmpfile.bin"])));
|
||||
}
|
||||
|
||||
# Check that the stdout output contains the expected values.
|
||||
|
||||
Reference in New Issue
Block a user