Testsuite: add support for relative name of exim

[exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index 4247f8c53b9a8dba352b86fec63c7ceececaf3ec..249c7cf59db30d5d4474d591d6dba2f84ef38444 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -2253,9 +2253,10 @@ else
 ##################################################
 
 # If the first character of the first argument is '/', the argument is taken
-# as the path to the binary.
+# as the path to the binary. If the first argument does not start with a
+# '/' but exists in the file system, it's assumed to be the Exim binary.
 
-$parm_exim = (@ARGV > 0 && $ARGV[0] =~ m?^/?)? shift @ARGV : "";
+$parm_exim = (@ARGV > 0 && (-x $ARGV[0] or $ARGV[0] =~ m?^/?))? Cwd::abs_path(shift @ARGV) : "";
 print "Exim binary is $parm_exim\n" if $parm_exim ne "";