From 2e15f8d28228d96485891d3bfd19e09a7ba776a1 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Thu, 28 Oct 2021 11:15:01 +0000 Subject: lei rm: move generic input_maildir_cb to LeiInput parent class It's not much of a savings, right now, but maybe it can be in the future. I wanted to eliminate the "lei convert" one, too, but convert needs to preserve keywords which isn't possible with the generic fallback, so new tests were written for convert, instead. --- t/lei-convert.t | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 't') diff --git a/t/lei-convert.t b/t/lei-convert.t index 0ea860c8..e1849ff7 100644 --- a/t/lei-convert.t +++ b/t/lei-convert.t @@ -115,5 +115,15 @@ test_lei({ tmpdir => $tmpdir }, sub { @bar = (); PublicInbox::MboxReader->mboxrd($fh, sub { push @bar, shift }); is_deeply(\@bar, [ $qp_eml ], 'readed gzipped mboxrd'); + + # Status => Maildir flag => Status round trip + $lei_out =~ s/^Status: O/Status: RO/sm or xbail "`seen' Status"; + $rdr = { 0 => \($in = $lei_out), %$lei_opt }; + lei_ok([qw(convert -F mboxrd -o), "$d/md2"], undef, $rdr); + @md = glob("$d/md2/*/*"); + is(scalar(@md), 1, 'one message'); + like($md[0], qr/:2,S\z/, "`seen' flag set in Maildir"); + lei_ok(qw(convert -o mboxrd:/dev/stdout), "$d/md2"); + like($lei_out, qr/^Status: RO/sm, "`seen' flag preserved"); }); done_testing; -- cgit v1.2.3-24-ge0c7