t/lei-up: additional diagnostics for match failures

I'm not sure why, but this test just failed for some odd reason
from `make check-run' on my Debian bullseye workstatation.

diff --git a/t/lei-up.t b/t/lei-up.t
index baed65079d823e8193e316806698a3f43beab212..2d3afd82ef53e7d86b218b1d89c83a4a805298ed 100644 (file)
--- 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;