X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Fmda.t;h=5457f17f3cde72e2186f48c079715564114a3bb6;hp=fb505146f8feb080db191dfaad9e2f334e0d2957;hb=5d8dbb4aca5afcc6b98a4d951f03003fb7eaf356;hpb=58852a50f6a72265cce1e4729aae3875bba5aa96 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 = "hi"; 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;