about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-10-28 11:14:54 +0000
committerEric Wong <e@80x24.org>2021-10-28 19:17:07 +0000
commit3c187b8751beecf97da596692384cd2bf4d91d5b (patch)
tree89d03647269aebbcd53053aac4a093e41d398625
parent958da0ebc2ac4b017f68a47561efd9d33d2a81bc (diff)
downloadpublic-inbox-3c187b8751beecf97da596692384cd2bf4d91d5b.tar.gz
I just did a double-take and nearly thought authentication
was broken while reading LeiConvert.pm.  Add a comment in
LeiConvert.pm to clarify things, too.
-rw-r--r--lib/PublicInbox/LeiConvert.pm1
-rw-r--r--xt/net_writer-imap.t7
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/PublicInbox/LeiConvert.pm b/lib/PublicInbox/LeiConvert.pm
index 68fc7c0b..424eab8e 100644
--- a/lib/PublicInbox/LeiConvert.pm
+++ b/lib/PublicInbox/LeiConvert.pm
@@ -55,6 +55,7 @@ sub lei_convert { # the main "lei convert" method
         my $devfd = $lei->path_to_fd($ovv->{dst}) // return;
         $lei->{opt}->{augment} = 1 if $devfd < 0;
         $self->prepare_inputs($lei, \@inputs) or return;
+        # n.b. {net} {auth} is handled by l2m worker
         my ($op_c, $ops) = $lei->workers_start($self, 1);
         $lei->{wq1} = $self;
         $self->wq_io_do('process_inputs', []);
diff --git a/xt/net_writer-imap.t b/xt/net_writer-imap.t
index afa4bcc3..333e0e3b 100644
--- a/xt/net_writer-imap.t
+++ b/xt/net_writer-imap.t
@@ -137,6 +137,13 @@ test_lei(sub {
         is_deeply($res->[0]->[1], $plack_qp_eml,
                         'lei q wrote expected result');
 
+        my $mdir = "$ENV{HOME}/t.mdir";
+        lei_ok 'convert', $folder_url, '-o', $mdir;
+        my @mdfiles = glob("$mdir/*/*");
+        is(scalar(@mdfiles), 1, '1 message from IMAP => Maildir conversion');
+        is_deeply(eml_load($mdfiles[0]), $plack_qp_eml,
+                'conversion from IMAP to Maildir');
+
         lei_ok qw(q f:matz -a -o), $folder_url;
         $nwr->imap_each($folder_uri, $imap_slurp_all, my $aug = []);
         is(scalar(@$aug), 2, '2 results after augment') or diag explain($aug);