lei export-kw: new command to export keywords to Maildirs

[public-inbox.git] / t / mdir_reader.t

diff --git a/t/mdir_reader.t b/t/mdir_reader.t
index 51b38af492d98e119d055c435d163d6c215e5312..c927e1a71a5c91c7cd671884bb1d55bb039cfbce 100644 (file)
--- a/t/mdir_reader.t
+++ b/t/mdir_reader.t
@@ -19,4 +19,9 @@ is(maildir_path_flags('/path/to/foo:2,'), '', 'no flags in path');
 use_ok 'PublicInbox::InboxWritable', qw(eml_from_path);
 is(eml_from_path('.'), undef, 'eml_from_path fails on directory');
 
+is_deeply([PublicInbox::MdirReader::flags2kw('S')], [{ 'seen' => 1 }, []],
+       "`seen' kw set from flag");
+is_deeply([PublicInbox::MdirReader::flags2kw('Su')], [{ 'seen' => 1 }, ['u']],
+       'unknown flag ignored');
+
 done_testing;