From aaa4b3a3fd2d7805afd412b3de2fca07a5e8898e Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 23 Apr 2021 07:22:01 -0400 Subject: lei import: support adding keywords and labels on import This saves some work and makes it easier to set volatile metadata on a message at import time. --- t/lei-import.t | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 't') diff --git a/t/lei-import.t b/t/lei-import.t index 8635df5a..6e9a853c 100644 --- a/t/lei-import.t +++ b/t/lei-import.t @@ -101,6 +101,16 @@ is_deeply($draft_a, $draft_b, 'fake Message-ID lookup') or lei_ok('blob', '--mail', $draft_b->[0]->{blob}); is($lei_out, $eml_str, 'draft retrieved by blob'); + +$eml_str = "Message-ID: \nSubject: label-this\n\n"; +lei_ok([qw(import -F eml - +kw:seen +L:inbox)], + undef, { %$lei_opt, 0 => \$eml_str }); +lei_ok(qw(q m:inbox@example.com)); +$res = json_utf8->decode($lei_out); +is_deeply($res->[0]->{kw}, ['seen'], 'keyword set'); +is_deeply($res->[0]->{L}, ['inbox'], 'label set'); + + # see t/lei_to_mail.t for "import -F mbox*" }); done_testing; -- cgit v1.2.3-24-ge0c7