use_ok('PublicInbox::MsgIter');
{
- my $mime = mime_load 't/msg_iter-order.eml', sub {
- my $parts = [ Email::MIME->create(body => "a\n"),
- Email::MIME->create(body => "b\n") ];
- Email::MIME->create(parts => $parts,
- header_str => [ From => 'root@localhost' ]);
- }; # mime_load sub
+ my $mime = mime_load 't/msg_iter-order.eml';
my @parts;
msg_iter($mime, sub {
my ($part, $level, @ex) = @{$_[0]};
}
{
- my $mime = mime_load 't/msg_iter-nested.eml', sub {
- my $parts = [ Email::MIME->create(body => 'a'),
- Email::MIME->create(body => 'b') ];
- $parts = [ Email::MIME->create(parts => $parts,
- header_str => [ From => 'sub@localhost' ]),
- Email::MIME->create(body => 'sig') ];
- Email::MIME->create(parts => $parts,
- header_str => [ From => 'root@localhost' ]);
- }; # mime_load sub
+ my $mime = mime_load 't/msg_iter-nested.eml';
my @parts;
msg_iter($mime, sub {
my ($part, $level, @ex) = @{$_[0]};