diff options
author | Eric Wong <e@80x24.org> | 2021-03-21 15:50:47 +0600 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-03-21 10:35:11 +0000 |
commit | 300309cebbf802463f2d7d235f2cf33d28f0760a (patch) | |
tree | 2e2b55785b81745a24fdd70d563090c2f60d4b47 /lib/PublicInbox/TestCommon.pm | |
parent | 26f6047fff20159085e28bd1e8a6e83a1e952fe0 (diff) | |
download | public-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.pm | 9 |
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; }; |