]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/lei-q-kw.t
www: drop --subject from "git send-email" instructions
[public-inbox.git] / t / lei-q-kw.t
index 528751b4742e19eacd590535417baa0138aa6bc2..4edee72a54b733a6237261a98b6c86b352939843 100644 (file)
@@ -28,7 +28,8 @@ ok(!glob("$o/cur/*"), 'last result cleared after augment-import');
 
 lei_ok(qw(q -o), "maildir:$o", qw(m:qp@example.com));
 @fn = glob("$o/cur/*:2,S");
-is(scalar(@fn), 1, "`seen' flag set on Maildir file");
+is(scalar(@fn), 1, "`seen' flag set on Maildir file") or
+       diag "$o contents: ", explain([glob("$o/*/*")]);
 
 # ensure --no-import-before works
 my $n = $fn[0];
@@ -48,6 +49,7 @@ SKIP: {
        my $cat = popen_rd(['cat', $o]);
        ok(!lei(qw(q --import-before bogus -o), "mboxrd:$o"),
                '--import-before fails on non-seekable output');
+       like($lei_err, qr/not seekable/, 'unseekable noted in error');
        is(do { local $/; <$cat> }, '', 'no output on FIFO');
        close $cat;
        $cat = popen_rd(['cat', $o]);