use warnings;
use OpenSSL::Test;
use OpenSSL::Test::Utils;
-use OpenSSL::Test qw/:DEFAULT srctop_file/;
+use OpenSSL::Test qw/:DEFAULT srctop_file bldtop_dir/;
+use Cwd qw(abs_path);
plan tests => 6;
setup("test_rand");
my @randdata;
my $expected = '0102030405060708090a0b0c0d0e0f10';
- @randdata = run(app(['openssl', 'rand', '-engine', 'ossltest', '-hex', '16' ]),
+ $ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
+ @randdata = run(app(['openssl', 'rand', '-provider', 'p_ossltest', '-provider', 'default', '-propquery', '?provider=p_ossltest', '-hex', '16' ]),
capture => 1, statusvar => \$success);
chomp(@randdata);
ok($success && $randdata[0] eq $expected,
- "rand with ossltest: Check rand output is as expected");
+ "rand with ossltest provider: Check rand output is as expected");
@randdata = run(app(['openssl', 'rand', '-hex', '2K' ]),
capture => 1, statusvar => \$success);