diff options
-rw-r--r-- | lib/PublicInbox/LeiSavedSearch.pm | 7 | ||||
-rw-r--r-- | t/lei-q-save.t | 7 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lib/PublicInbox/LeiSavedSearch.pm b/lib/PublicInbox/LeiSavedSearch.pm index d67622c9..94920a4e 100644 --- a/lib/PublicInbox/LeiSavedSearch.pm +++ b/lib/PublicInbox/LeiSavedSearch.pm @@ -61,11 +61,8 @@ sub list { bless $cfg, 'PublicInbox::Config'; my $out = $cfg->get_all('lei.q.output') or return (); map {; - if (s!\A(?:maildir|mh|mbox.+|mmdf):!!i) { - -e $_ ? $_ : (); # TODO auto-prune somewhere? - } else { # IMAP, maybe JMAP - $_; - } + s!\A(?:maildir|mh|mbox.+|mmdf):!!i; + $_; } @$out } diff --git a/t/lei-q-save.t b/t/lei-q-save.t index 761814b4..4e6ed642 100644 --- a/t/lei-q-save.t +++ b/t/lei-q-save.t @@ -67,5 +67,12 @@ test_lei(sub { lei_ok qw(_complete lei up); like($lei_out, qr!^\Q$home/mbcl2\E$!sm, 'complete got mbcl2 output'); like($lei_out, qr!^\Q$home/md/\E$!sm, 'complete got maildir output'); + + unlink("$home/mbcl2") or xbail "unlink $!"; + lei_ok qw(_complete lei up); + like($lei_out, qr!^\Q$home/mbcl2\E$!sm, + 'mbcl2 output shown despite unlink'); + lei_ok([qw(up mbcl2)], undef, { -C => $home, %$lei_opt }); + ok(-f "$home/mbcl2" && -s _ == 0, 'up recreates on missing output'); }); done_testing; |