From 7f38c5dc53450d3f3b55341cf7dd2b185ff4ad50 Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <ossi@users.sf.net>
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";
 	}