diff options
| author | Eric Wong <e@80x24.org> | 2021-03-04 17:03:11 +0800 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-03-04 14:29:36 -0400 |
| commit | 1d0616b4ee744185ef6c1ff8672ea4521497406a (patch) | |
| tree | 26490b51c2080187a74998bafa68ada6d0b496c4 /xt | |
| parent | fbc11e24a72f41b0ed7ead30d199288a4d674be4 (diff) | |
| download | public-inbox-1d0616b4ee744185ef6c1ff8672ea4521497406a.tar.gz | |
IMAP is similar to Maildir and we can now preserve keyword updates done on IMAP folders.
Diffstat (limited to 'xt')
| -rw-r--r-- | xt/net_writer-imap.t | 36 |
1 files changed, 32 insertions, 4 deletions
diff --git a/xt/net_writer-imap.t b/xt/net_writer-imap.t index da435926..c24fa993 100644 --- a/xt/net_writer-imap.t +++ b/xt/net_writer-imap.t @@ -91,7 +91,7 @@ my $smsg = bless { kw => [ 'seen' ] }, 'PublicInbox::Smsg'; $imap_append->($mic, $folder, undef, $smsg, eml_load('t/plack-qp.eml')); $nwr->{quiet} = 1; my $imap_slurp_all = sub { - my ($u, $uid, $kw, $eml, $res) = @_; + my ($url, $uid, $kw, $eml, $res) = @_; push @$res, [ $kw, $eml ]; }; $nwr->imap_each($folder_uri, $imap_slurp_all, my $res = []); @@ -138,10 +138,38 @@ test_lei(sub { $nwr->imap_each($folder_uri, $imap_slurp_all, my $empty = []); is(scalar(@$empty), 0, 'no results w/o augment'); - lei_ok qw(convert -F eml t/msg_iter-order.eml -o), $$folder_uri; + my $f = 't/utf8.eml'; # <testmessage@example.com> + $exp = eml_load($f); + lei_ok qw(convert -F eml -o), $$folder_uri, $f; + my (@uid, @res); + $nwr->imap_each($folder_uri, sub { + my ($u, $uid, $kw, $eml) = @_; + push @uid, $uid; + push @res, [ $kw, $eml ]; + }); + is_deeply(\@res, [ [ [], $exp ] ], 'converted to IMAP destination'); + is(scalar(@uid), 1, 'got one UID back'); + lei_ok qw(q -o /dev/stdout m:testmessage@example.com --no-external); + is_deeply(json_utf8->decode($lei_out), [undef], + 'no results before import'); + + 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 $@"; + @res = (); + $nwr->imap_each($folder_uri, $imap_slurp_all, \@res); + is_deeply(\@res, [ [ ['seen'], $exp ] ], 'seen flag set') or + diag explain(\@res); + + lei_ok qw(q s:thisbetternotgiveanyresult -o), $folder_uri->as_string, + \'clobber folder but import flag'; $nwr->imap_each($folder_uri, $imap_slurp_all, $empty = []); - is_deeply($empty, [ [ [], eml_load('t/msg_iter-order.eml') ] ], - 'converted to IMAP destination'); + is_deeply($empty, [], 'clobbered folder'); + lei_ok qw(q -o /dev/stdout m:testmessage@example.com --no-external); + $res = json_utf8->decode($lei_out)->[0]; + is_deeply([@$res{qw(m kw)}], ['<testmessage@example.com>', ['seen']], + 'kw set'); }); undef $cleanup; # remove temporary folder |