autotest: add support for strace-ing

works just like valgrind-ing.
This commit is contained in:
Oswald Buddenhagen 2022-04-04 21:51:16 +02:00
parent 22a1df73e4
commit 7f38c5dc53

View File

@ -16,6 +16,7 @@ use File::Path;
use File::Temp 'tempdir'; use File::Temp 'tempdir';
my $use_vg = $ENV{USE_VALGRIND}; my $use_vg = $ENV{USE_VALGRIND};
my $use_st = $ENV{USE_STRACE};
my $mbsync = getcwd()."/mbsync"; my $mbsync = getcwd()."/mbsync";
my (@match, $start); my (@match, $start);
@ -349,6 +350,8 @@ sub runsync($$$)
my $cmd; my $cmd;
if ($use_vg) { if ($use_vg) {
$cmd = "valgrind -q --error-exitcode=1 "; $cmd = "valgrind -q --error-exitcode=1 ";
} elsif ($use_st) {
$cmd = "strace ";
} else { } else {
$flags .= " -D"; $flags .= " -D";
} }