tests: implement --xtrace in complete-run.pl

2012-08-04 00:51:41 +02:00
parent 1b3435807a
commit 077e021e26
4 changed files with 18 additions and 1 deletions
--- a/testcases/lib/SocketActivation.pm
+++ b/testcases/lib/SocketActivation.pm
@ -124,6 +124,14 @@ sub activate_i3 {
                     'sh -c "export LISTEN_PID=\$\$; ' . $cmd . '"';
        }

+        if ($args{xtrace}) {
+            my $out = "$outdir/xtrace-for-$test.log";
+
+            # See comment in $args{strace} branch.
+            $cmd = qq|xtrace -n -o "$out" -- | .
+                     'sh -c "export LISTEN_PID=\$\$; ' . $cmd . '"';
+        }
+
        # We need to use the shell due to using output redirections.
        exec '/bin/sh', '-c', $cmd;