lei convert: mail format conversion sub-command

This will make testing IMAP support for other commands easier, as
it doesn't write to lei/store at all.  Like the pager and MUA,
"git credential" is always spawned by script/lei (and not
lei-daemon) so it has a controlling terminal for password
prompts.

v2: fix missing requires, correct test ordering
v3: ensure config exists for IMAP auth

1 files changed, 8 insertions, 3 deletions

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index c5070cfd..3eb08e9f 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -462,10 +462,15 @@ our $lei = sub {
 sub lei (@) { $lei->(@_) }
 
 sub lei_ok (@) {
-        my $msg = ref($_[-1]) ? pop(@_) : undef;
+        my $msg = ref($_[-1]) eq 'SCALAR' ? pop(@_) : undef;
+        my $tmpdir = quotemeta(File::Spec->tmpdir);
         # filter out anything that looks like a path name for consistent logs
-        my @msg = grep(!m!\A/!, @_);
-        ok($lei->(@_), "lei @msg". ($msg ? " ($$msg)" : ''));
+        my @msg = ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_;
+        for (@msg) {
+                s!\A([a-z0-9]+://)[^/]+/!$1\$HOST_PORT/! ||
+                        s!$tmpdir\b/(?:[^/]+/)?!\$TMPDIR/!;
+        }
+        ok(lei(@_), "lei @msg". ($msg ? " ($$msg)" : '')) or diag $lei_err;
 }
 
 sub json_utf8 () {