From 9d0d8caf8d9c5eb3afc0c862bdddb2ec310259f5 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 28 Apr 2021 07:52:00 +0000 Subject: t/run.perl: add (GNU) tail and strace support This may help track down some "make check-run" failures that don't seem to manifest under "make check". --- t/run.perl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 't') diff --git a/t/run.perl b/t/run.perl index f4e235b7..2fbe4033 100755 --- a/t/run.perl +++ b/t/run.perl @@ -52,6 +52,13 @@ if (!$ENV{TEST_LEI_DAEMON_PERSIST_DIR} && chomp $lei_daemon_pid; $lei_daemon_pid =~ /\A[0-9]+\z/ or die "no daemon pid: $lei_daemon_pid"; kill(0, $lei_daemon_pid) or die "kill $lei_daemon_pid: $!"; + if (my $t = $ENV{GNU_TAIL}) { + system("$t --pid=$lei_daemon_pid -F " . + "$lei_env->{XDG_RUNTIME_DIR}/lei/errors.log >&2 &"); + } + if (my $strace_cmd = $ENV{STRACE_CMD}) { + system("$strace_cmd -p $lei_daemon_pid &"); + } $owner_pid = $$; } -- cgit v1.2.3-24-ge0c7