From 2d47f67729aecd3dcbacdfd303b719893f2d61fa Mon Sep 17 00:00:00 2001 From: "Heiko Schlittermann (HS12-RIPE)" Date: Tue, 8 Nov 2016 22:22:11 +0100 Subject: [PATCH] Testsuite: tidyup runtest --- test/runtest | 35 +++++++++++++---------------------- 1 file changed, 13 insertions(+), 22 deletions(-) diff --git a/test/runtest b/test/runtest index d97969cf3..a0d7fd14b 100755 --- a/test/runtest +++ b/test/runtest @@ -46,7 +46,7 @@ $testversion = "4.80 (08-May-12)"; # normal = 2432 tls_dh_max_bits = 2236 $gnutls_dh_bits_normal = 2236; -$cf = "bin/cf -exact"; +$cf = 'bin/cf -exact'; $cr = "\r"; $debug = 0; $flavour = do { @@ -1722,14 +1722,9 @@ return $yield; # Returns: nothing sub run_system { -my($cmd) = $_[0]; -if ($debug) - { - my($prcmd) = $cmd; - $prcmd =~ s/; /;\n>> /; - print ">> $prcmd\n"; - } -system("$cmd"); + my $cmd = shift; + print '>> ' . $cmd =~ s/; /;\n>>/r . "\n" if $debug; + system $cmd; } @@ -2256,7 +2251,7 @@ elsif (/^((?i:[A-Z\d_]+=\S+\s+)+)?(\d+)?\s*(sudo(?:\s+-u\s+(\w+))?\s+)?exim(_\S+ { $pidfile = "$parm_cwd/spool/exim-daemon.pid"; if ($debug) { printf ">> daemon: $cmd\n"; } - run_system("sudo mkdir spool/log 2>/dev/null"); + run_system('sudo mkdir spool/log 2>/dev/null'); run_system("sudo chown $parm_eximuser:$parm_eximgroup spool/log"); # Before running the command, convert the -bd option into -bdf so that an @@ -2292,7 +2287,7 @@ elsif (/^((?i:[A-Z\d_]+=\S+\s+)+)?(\d+)?\s*(sudo(?:\s+-u\s+(\w+))?\s+)?exim(_\S+ my $listen_port = $1; if ($debug) { printf ">> wait-mode daemon: $cmd\n"; } - run_system("sudo mkdir spool/log 2>/dev/null"); + run_system('sudo mkdir spool/log 2>/dev/null'); run_system("sudo chown $parm_eximuser:$parm_eximgroup spool/log"); my $pid = fork(); @@ -3185,13 +3180,9 @@ if ($parm_hostname =~ /[[:upper:]]/) # that was done above. Furthermore, we ensure that the binary is deleted at the # end of the test. First ensure the directory exists. -if (-d "eximdir") - { unlink "eximdir/exim"; } # Just in case -else - { - mkdir("eximdir", 0710) || die "** Unable to mkdir $parm_cwd/eximdir: $!\n"; - system("sudo chgrp $parm_eximgroup eximdir"); - } +unlink 'eximdir/exim'; # Just in case +-d 'eximdir' or mkdir('eximdir', 0710) or die "** Unable to mkdir $parm_cwd/eximdir: $!\n"; +system("sudo chgrp $parm_eximgroup eximdir"); # The construction of the patched binary must be done as root, so we use # a separate script. As well as indicating that this is a test-harness binary, @@ -3206,16 +3197,16 @@ die "** Unable to make patched exim: $!\n" # tests_exit(), so that suitable cleaning up can be done when required. # Arrange to catch interrupting signals, to assist with this. -$SIG{'INT'} = \&inthandler; -$SIG{'PIPE'} = \&pipehandler; +$SIG{INT} = \&inthandler; +$SIG{PIPE} = \&pipehandler; # For some tests, we need another copy of the binary that is setuid exim rather # than root. -system("sudo cp eximdir/exim eximdir/exim_exim;" . +system('sudo cp eximdir/exim eximdir/exim_exim;' . "sudo chown $parm_eximuser eximdir/exim_exim;" . "sudo chgrp $parm_eximgroup eximdir/exim_exim;" . - "sudo chmod 06755 eximdir/exim_exim"); + 'sudo chmod 06755 eximdir/exim_exim'); ################################################## -- 2.30.2