about summary refs log tree commit homepage
path: root/t/mda.t
diff options
context:
space:
mode:
Diffstat (limited to 't/mda.t')
-rw-r--r--t/mda.t5
1 files changed, 3 insertions, 2 deletions
diff --git a/t/mda.t b/t/mda.t
index fb505146..5457f17f 100644
--- a/t/mda.t
+++ b/t/mda.t
@@ -233,6 +233,7 @@ EOF
                 "learned ham idempotently ");
 
         # ensure trained email is filtered, too
+        $mime = mime_load 't/mda-mime.eml', sub {
         my $html_body = "<html><body>hi</body></html>";
         my $parts = [
                 Email::MIME->create(
@@ -251,7 +252,7 @@ EOF
                 )
         ];
         $mid = 'multipart-html-sucks@11';
-        $mime = Email::MIME->create(
+        Email::MIME->create(
                 header_str => [
                   From => 'a@example.com',
                   Subject => 'blah',
@@ -260,7 +261,7 @@ EOF
                   'Content-Type' => 'multipart/alternative',
                 ],
                 parts => $parts,
-        );
+        )}; # mime_load sub
 
         {
                 $in = $mime->as_string;