[PATCH 18/30] t/lei-up: additional diagnostics for match failures

[Eric Wong]

I'm not sure why, but this test just failed for some odd reason
from `make check-run' on my Debian bullseye workstatation.
---
 t/lei-up.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/lei-up.t b/t/lei-up.t
index baed6507..2d3afd82 100644
--- a/t/lei-up.t
+++ b/t/lei-up.t
@@ -18,11 +18,11 @@ test_lei(sub {
                gunzip("$home/$x.mbox.gz" => \$uc, MultiStream => 1) or
                                xbail "gunzip $GunzipError";
                ok(index($uc, $qp->body_raw) >= 0,
-                       "original mail in $x.mbox.gz");
+                       "original mail in $x.mbox.gz") or diag $uc;
                open my $fh, '<', "$home/$x" or xbail $!;
                $uc = do { local $/; <$fh> } // xbail $!;
                ok(index($uc, $qp->body_raw) >= 0,
-                       "original mail in uncompressed $x");
+                       "original mail in uncompressed $x") or diag $uc;
        }
        lei_ok qw(ls-search);
        $s = eml_load('t/utf8.eml')->as_string;