sub add_eml {
my ($self, $eml, @kw) = @_;
- my $eidx = eidx_init($self);
+ my $im = $self->importer; # may create new epoch
+ my $eidx = eidx_init($self); # writes ALL.git/objects/info/alternates
my $oidx = $eidx->{oidx};
my $smsg = bless { -oidx => $oidx }, 'PublicInbox::Smsg';
- my $im = $self->importer;
$im->add($eml, undef, $smsg) or return; # duplicate returns undef
local $self->{current_info} = $smsg->{blob};
\'import single file from stdin') or diag $lei_err;
close $fh;
lei_ok(qw(q s:boolean), \'search hit after import');
+lei_ok(qw(q s:boolean -f mboxrd), \'blob accessible after import');
+{
+ my $expect = [ eml_load('t/data/0001.patch') ];
+ require PublicInbox::MboxReader;
+ my @cmp;
+ open my $fh, '<', \$lei_out or BAIL_OUT "open :scalar: $!";
+ PublicInbox::MboxReader->mboxrd($fh, sub {
+ my ($eml) = @_;
+ $eml->header_set('Status');
+ push @cmp, $eml;
+ });
+ is_deeply(\@cmp, $expect, 'got expected message in mboxrd');
+}
lei_ok(qw(import -f eml), 't/data/message_embed.eml',
\'import single file by path');