Testsuite: Auto-detect missing sbin directories

[exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index 6c98a702ce1bf4074457236437f0b36337ee3c65..0a2ede9ef36d56f2423873119db28310e2d16f49 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -2207,6 +2207,15 @@ return $yield;            # Ran command and waited
 autoflush STDOUT 1;
 print "Exim tester $testversion\n";
 
+# extend the PATH with .../sbin
+# we map all (.../bin) to (.../sbin:.../bin)
+$ENV{PATH} = do {
+  my %seen = map { $_, 1 } split /:/, $ENV{PATH};
+  join ':' => map { m{(.*)/bin$} 
+                ? ( $seen{"$1/sbin"} ? () : ("$1/sbin"), $_) 
+                : ($_) } 
+      split /:/, $ENV{PATH};
+};
 
 ##################################################
 #      Some tests check created file modes       #