about summary refs log tree commit homepage
path: root/lib/PublicInbox/TestCommon.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-03-23 11:48:05 +0000
committerEric Wong <e@80x24.org>2021-03-24 01:33:26 +0000
commit84f60edcc873d55c949d2ea7eccca6f46bcb5400 (patch)
treefc8865dadbb95de44927dfc2ed450ccec987d594 /lib/PublicInbox/TestCommon.pm
parentd89c8c4486b2347eb6570fe1aeaf4c6efddca29f (diff)
downloadpublic-inbox-84f60edcc873d55c949d2ea7eccca6f46bcb5400.tar.gz
This will make it easier to diagnose some large internal
rewrites.
Diffstat (limited to 'lib/PublicInbox/TestCommon.pm')
-rw-r--r--lib/PublicInbox/TestCommon.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index e67e94ea..d4117b6c 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -507,7 +507,7 @@ SKIP: {
 Socket::MsgHdr missing or Inline::C is unconfigured/missing
 EOM
         $lei_opt = { 1 => \$lei_out, 2 => \$lei_err };
-        my ($daemon_pid, $for_destroy);
+        my ($daemon_pid, $for_destroy, $daemon_xrd);
         my $tmpdir = $test_opt->{tmpdir};
         ($tmpdir, $for_destroy) = tmpdir unless $tmpdir;
         SKIP: {
@@ -515,9 +515,9 @@ EOM
                 my $home = "$tmpdir/lei-daemon";
                 mkdir($home, 0700) or BAIL_OUT "mkdir: $!";
                 local $ENV{HOME} = $home;
-                my $xrd = "$home/xdg_run";
-                mkdir($xrd, 0700) or BAIL_OUT "mkdir: $!";
-                local $ENV{XDG_RUNTIME_DIR} = $xrd;
+                $daemon_xrd = "$home/xdg_run";
+                mkdir($daemon_xrd, 0700) or BAIL_OUT "mkdir: $!";
+                local $ENV{XDG_RUNTIME_DIR} = $daemon_xrd;
                 $cb->();
                 lei_ok(qw(daemon-pid), \"daemon-pid after $t");
                 chomp($daemon_pid = $lei_out);
@@ -547,6 +547,11 @@ EOM
                         tick;
                 }
                 ok(!kill(0, $daemon_pid), "$t daemon stopped after oneshot");
+                my $f = "$daemon_xrd/lei/errors.log";
+                open my $fh, '<', $f or BAIL_OUT "$f: $!";
+                my @l = <$fh>;
+                is_deeply(\@l, [],
+                        "$t daemon XDG_RUNTIME_DIR/lei/errors.log empty");
         }
 }; # SKIP if missing git 2.6+ || Xapian || SQLite || json
 } # /test_lei