testcommon: introduce mime_load sub

We'll use this to create, memoize, and reuse .eml files.  This
will be used to reduce (and eventually eliminate) our dependency
on Email::MIME in tests.

1 files changed, 3 insertions, 2 deletions

diff --git a/t/psgi_v2.t b/t/psgi_v2.t
index bc26a112..5d212ca6 100644
--- a/t/psgi_v2.t
+++ b/t/psgi_v2.t
@@ -225,6 +225,7 @@ test_psgi(sub { $www->call(@_) }, sub {
 
         # ensure conflicted attachments can be resolved
         foreach my $body (qw(old new)) {
+                $mime = mime_load "t/psgi_v2-$body.eml", sub {
                 my $parts = [
                         Email::MIME->create(
                                 attributes => { content_type => 'text/plain' },
@@ -238,12 +239,12 @@ test_psgi(sub { $www->call(@_) }, sub {
                                 body => $body
                         )
                 ];
-                $mime = Email::MIME->create(
+                Email::MIME->create(
                         parts => $parts,
                         header_str => [ From => 'root@z',
                                 'Message-ID' => '<a@dup>',
                                 Subject => 'hi']
-                );
+                )}; # mime_load sub
                 ok($im->add($mime), "added attachment $body");
         }
         $im->done;