+
+ lei_ok qw(convert -F eml -o mboxcl2:/dev/fd/1 t/plack-qp.eml);
+ open $fh, '<', \$lei_out or BAIL_OUT;
+ @bar = ();
+ PublicInbox::MboxReader->mboxcl2($fh, sub {
+ my $eml = shift;
+ for my $h (qw(Content-Length Lines)) {
+ ok(defined($eml->header_raw($h)),
+ "$h defined for mboxcl2");
+ $eml->header_set($h);
+ }
+ push @bar, $eml;
+ });
+ my $qp_eml = eml_load('t/plack-qp.eml');
+ $qp_eml->header_set('Status', 'O');
+ is_deeply(\@bar, [ $qp_eml ], 'eml => mboxcl2');
+
+ lei_ok qw(convert t/plack-qp.eml -o), "mboxrd:$d/qp.gz";
+ open $fh, '<', "$d/qp.gz" or xbail $!;
+ ok(-s $fh, 'not empty');
+ $fh = IO::Uncompress::Gunzip->new($fh, MultiStream => 1);
+ @bar = ();
+ PublicInbox::MboxReader->mboxrd($fh, sub { push @bar, shift });
+ is_deeply(\@bar, [ $qp_eml ], 'wrote gzipped mboxrd');
+ lei_ok qw(convert -o mboxrd:/dev/stdout), "mboxrd:$d/qp.gz";
+ open $fh, '<', \$lei_out or xbail;
+ @bar = ();
+ PublicInbox::MboxReader->mboxrd($fh, sub { push @bar, shift });
+ is_deeply(\@bar, [ $qp_eml ], 'readed gzipped mboxrd');