From 7f38c5dc53450d3f3b55341cf7dd2b185ff4ad50 Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Mon, 4 Apr 2022 21:51:16 +0200 Subject: [PATCH] autotest: add support for strace-ing works just like valgrind-ing. --- src/run-tests.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/run-tests.pl b/src/run-tests.pl index e5a0de9..8bd3646 100755 --- a/src/run-tests.pl +++ b/src/run-tests.pl @@ -16,6 +16,7 @@ use File::Path; use File::Temp 'tempdir'; my $use_vg = $ENV{USE_VALGRIND}; +my $use_st = $ENV{USE_STRACE}; my $mbsync = getcwd()."/mbsync"; my (@match, $start); @@ -349,6 +350,8 @@ sub runsync($$$) my $cmd; if ($use_vg) { $cmd = "valgrind -q --error-exitcode=1 "; + } elsif ($use_st) { + $cmd = "strace "; } else { $flags .= " -D"; }