- # XXX memoize this external creation
- my $inboxdir = "$ENV{HOME}/tmp_git";
- my $ibx = PublicInbox::InboxWritable->new({
- name => 'tmp',
- -primary_address => 'lei@example.com',
- inboxdir => $inboxdir,
- indexlevel => 'medium',
- }, { nproc => 1 });
- my $im = $ibx->importer(0);
- $im->add(eml_load('t/utf8.eml')) or BAIL_OUT '->add';
- $im->done;
-
- run_script(['-index', $inboxdir], undef) or BAIL_OUT '-init';
- lei_ok(qw(add-external -q), $inboxdir);
- lei_ok(qw(q -o), "mboxrd:$o", '--only', $url,
+ my $ibx = create_inbox 'local-external', indexlevel => 'medium', sub {
+ my ($im) = @_;
+ $im->add(eml_load('t/utf8.eml')) or BAIL_OUT '->add';
+ };
+ lei_ok(qw(add-external -q), $ibx->{inboxdir});
+ lei_ok(qw(q -q -o), "mboxrd:$o", '--only', $url,