lei: fix some warnings in tests

[public-inbox.git] / lib / PublicInbox / TestCommon.pm

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 0d15514e2cb6f2859ab2296515fa82d9e05d2574..e67e94ea830bdfe8d0389529da9d1e16e2059693 100644 (file)
--- 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;
 };