lei export-kw: skip read-only IMAP folders

[public-inbox.git] / t / lei-import-imap.t

diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t
index 315567b3b8d4fea66bd2211e11cf377aaee603ea..3b6cb29926eee322355365631ff636c3d261eb3b 100644 (file)
--- 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;