testcommon: introduce mime_load sub

[public-inbox.git] / t / search.t

diff --git a/t/search.t b/t/search.t
index 0fd5fdeede0c6521d45cf2af2fad92fd5f3a3f98..0301fd90b6289f379063400ac888343f7ed9d433 100644 (file)
--- a/t/search.t
+++ b/t/search.t
@@ -371,6 +371,7 @@ $ibx->with_umask(sub {
 }
 
 $ibx->with_umask(sub {
+       my $amsg = mime_load 't/search-amsg.eml', sub {
        my $part1 = Email::MIME->create(
                  attributes => {
                      content_type => 'text/plain',
@@ -391,7 +392,7 @@ $ibx->with_umask(sub {
                  },
                  body_str => 'inside another',
        );
-       my $amsg = Email::MIME->create(
+       Email::MIME->create(
                header_str => [
                        Subject => 'see attachment',
                        'Message-ID' => '<file@attached>',
@@ -399,7 +400,8 @@ $ibx->with_umask(sub {
                        To => 'list@example.com',
                ],
                parts => [ $part1, $part2 ],
-       );
+       )}; # mime_load sub
+
        ok($rw->add_message($amsg), 'added attachment');
        $rw_commit->();
        $ro->reopen;