diff options
author | Eric Wong <e@80x24.org> | 2021-10-23 18:20:40 -0600 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-10-24 02:20:33 +0000 |
commit | f59ac79a64759396ce484616393cdad18d431a57 (patch) | |
tree | 397b6741fb77b9ce6250ae6b1dd78e477c928047 /t | |
parent | cb04d2ddfd53c36eaf1a49cadb8158ae76622683 (diff) | |
download | public-inbox-f59ac79a64759396ce484616393cdad18d431a57.tar.gz |
Since we want to store IMAP flags asynchronously and not wait for results, we can't check for IMAP errors this way and end up wasting bandwidth on public-inbox-imapd. Now, we just check PERMANENTFLAGS up front to ensure a folder can handle IMAP flag storage before proceeding.
Diffstat (limited to 't')
-rw-r--r-- | t/lei-export-kw.t | 2 | ||||
-rw-r--r-- | t/lei-import-imap.t | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/t/lei-export-kw.t b/t/lei-export-kw.t index 55730e87..88b2a80b 100644 --- a/t/lei-export-kw.t +++ b/t/lei-export-kw.t @@ -4,7 +4,7 @@ use strict; use v5.10.1; use PublicInbox::TestCommon; use File::Copy qw(cp); use File::Path qw(make_path); -require_mods(qw(lei -imapd Mail::IMAPClient)); +require_mods(qw(lei)); # see lei-import-imap.t for IMAP tests my ($tmpdir, $for_destroy) = tmpdir; my $expect = eml_load('t/data/0001.patch'); my $do_export_kw = 1; diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t index 315567b3..3b6cb299 100644 --- a/t/lei-import-imap.t +++ b/t/lei-import-imap.t @@ -110,6 +110,9 @@ test_lei({ tmpdir => $tmpdir }, sub { is(scalar(@$out), 2, 'got JSON') or diag explain($out); lei_ok qw(lcat), $url_orig; is($lei_out, $orig, 'lcat w/o UID works'); + + ok(!lei(qw(export-kw), $url_orig), 'export-kw fails on read-only IMAP'); + like($lei_err, qr/does not support/, 'error noted in failure'); }); done_testing; |