use OpenSSL::Util;
my $level = 0;
+my $idx = 0;
# The name of the test. This is set by setup() and is used in the other
# functions to verify that setup() has been used.
return sub {
my @cmdargs = ( @{$cmd} );
my @prog = __fixup_prg(__apps_file(shift @cmdargs, __exeext()));
- if ($ENV{OSSL_USE_VALGRIND} eq "yes") {
- return cmd([ "valgrind", "--leak-check=full", "--show-leak-kinds=all", "--gen-suppressions=all", "--log-file=./valgrind.log", @prog, @cmdargs ],
+ if (defined $ENV{OSSL_USE_VALGRIND}) {
+ $idx=$idx+1;
+ my $resultdir = result_dir();
+ my $srcdir = srctop_dir();
+ return cmd([ "valgrind", "--leak-check=full", "--show-leak-kinds=all", "--gen-suppressions=all", "--log-file=$resultdir/valgrind.log.$idx", "--suppressions=$srcdir/util/valgrind.suppression", @prog, @cmdargs ],
exe_shell => $ENV{EXE_SHELL}, %opts) -> (shift);
} else {
return cmd([ @prog, @cmdargs ],
return sub {
my @cmdargs = ( @{$cmd} );
my @prog = __fixup_prg(__test_file(shift @cmdargs, __exeext()));
- if ($ENV{OSSL_USE_VALGRIND} eq "yes") {
- return cmd([ "valgrind", "--leak-check=full", "--show-leak-kinds=all", "--gen-suppressions=all", "--log-file=./valgrind.log", @prog, @cmdargs ],
+ if (defined $ENV{OSSL_USE_VALGRIND}) {
+ $idx=$idx+1;
+ my $resultdir = result_dir();
+ my $srcdir = srctop_dir();
+ return cmd([ "valgrind", "--leak-check=full", "--show-leak-kinds=all", "--gen-suppressions=all", "--log-file=$resultdir/valgrind.log.$idx", "--suppressions=$srcdir/util/valgrind.suppression", @prog, @cmdargs ],
exe_shell => $ENV{EXE_SHELL}, %opts) -> (shift);
} else {
return cmd([ @prog, @cmdargs ],