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-21 15:50:47 +0600
committerEric Wong <e@80x24.org>2021-03-21 10:35:11 +0000
commit300309cebbf802463f2d7d235f2cf33d28f0760a (patch)
tree2e2b55785b81745a24fdd70d563090c2f60d4b47 /lib/PublicInbox/TestCommon.pm
parent26f6047fff20159085e28bd1e8a6e83a1e952fe0 (diff)
downloadpublic-inbox-300309cebbf802463f2d7d235f2cf33d28f0760a.tar.gz
And then test the contents of $lei_err to ensure it doesn't
happen again.

We'll also make MboxLock emit nicer warnings without the line
number, since the line number is irrelevant to the user fixing
an mbox lock contention problem.

Finally, we'll also allow showing loud warnings via
TEST_LEI_ERR_LOUD=1
Diffstat (limited to 'lib/PublicInbox/TestCommon.pm')
-rw-r--r--lib/PublicInbox/TestCommon.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 0d15514e..e67e94ea 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -457,6 +457,15 @@ sub lei (@) {
         my $res = run_script(['lei', @$cmd], $env, $xopt // $lei_opt);
         $err_skip and
                 $lei_err = join('', grep(!/$err_skip/, split(/^/m, $lei_err)));
+        if ($lei_err ne '') {
+                if ($lei_err =~ /Use of uninitialized/ ||
+                        $lei_err =~ m!\bArgument .*? isn't numeric in !) {
+                        fail "lei_err=$lei_err";
+                } else {
+                        state $loud = $ENV{TEST_LEI_ERR_LOUD};
+                        diag "lei_err=$lei_err" if $loud;
+                }
+        }
         $res;
 };