about summary refs log tree commit homepage
path: root/xt
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-05-02 06:05:41 +0000
committerEric Wong <e@80x24.org>2021-05-03 18:45:27 +0000
commit91f60a476b2407d21d5f85e832164699d4e407ec (patch)
treee519c262af5d2d7973150bb4bfda6944edc10ea0 /xt
parent528ef7a3988862763b6ca5b0123be0bf23a64213 (diff)
downloadpublic-inbox-91f60a476b2407d21d5f85e832164699d4e407ec.tar.gz
Instead of "+FLAGS.SILENT" which merely adds to the keywords.
We store all keywords together, so it's unlikely we will rely
on the "+FLAGS.SILENT" or "-FLAGS.SILENT".
Diffstat (limited to 'xt')
-rw-r--r--xt/net_writer-imap.t9
1 files changed, 7 insertions, 2 deletions
diff --git a/xt/net_writer-imap.t b/xt/net_writer-imap.t
index 007de35e..1298b958 100644
--- a/xt/net_writer-imap.t
+++ b/xt/net_writer-imap.t
@@ -157,8 +157,13 @@ test_lei(sub {
 
         lei_ok qw(import -F eml), $f, \'import local copy w/o keywords';
 
-        $nwr->imap_set_kw($folder_uri, $uid[0], [ 'seen' ])->expunge
-                or BAIL_OUT "expunge $@";
+        $mic = $nwr->mic_for_folder($folder_uri);
+        # dummy set to ensure second set_kw clobbers
+        $nwr->imap_set_kw($mic, $uid[0], [ qw(seen answered flagged) ]
+                        )->expunge or BAIL_OUT "expunge $@";
+        $nwr->imap_set_kw($mic, $uid[0], [ 'seen' ]
+                        )->expunge or BAIL_OUT "expunge $@";
+        $mic = undef;
         @res = ();
         $nwr->imap_each($folder_uri, $imap_slurp_all, \@res);
         is_deeply(\@res, [ [ ['seen'], $exp ] ], 'seen flag set') or