tests: also make launch_with_config() log to LOGPATH

This commit is contained in:
Michael Stapelberg 2011-09-18 15:35:04 +01:00
parent c88425147e
commit 99168a84a9
2 changed files with 5 additions and 2 deletions

View File

@ -242,7 +242,7 @@ sub take_job {
my $output; my $output;
my $parser = TAP::Parser->new({ my $parser = TAP::Parser->new({
exec => [ 'sh', '-c', "DISPLAY=$display /usr/bin/perl -It/lib $test" ], exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" /usr/bin/perl -It/lib $test| ],
spool => IO::Scalar->new(\$output), spool => IO::Scalar->new(\$output),
merge => 1, merge => 1,
}); });

View File

@ -259,7 +259,10 @@ sub launch_with_config {
say $fh "ipc-socket $tmp_socket_path"; say $fh "ipc-socket $tmp_socket_path";
close($fh); close($fh);
my $i3cmd = "exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c $tmpfile >/dev/null 2>/dev/null"; # Use $ENV{LOGPATH}, gets set in complete-run.pl. We append instead of
# overwrite because there might be multiple instances of i3 running during
# one test case.
my $i3cmd = "exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c $tmpfile >>$ENV{LOGPATH} 2>&1";
my $process = Proc::Background->new($i3cmd); my $process = Proc::Background->new($i3cmd);
sleep 1; sleep 1;