]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/filter_mirror.t
tests: remove Email::MIME->create use entirely
[public-inbox.git] / t / filter_mirror.t
index 694209d9e07076f5e404d1ade759ccd58886f9f4..0e641a03ca61544a7abfacf8d238d3084acaaade 100644 (file)
@@ -9,32 +9,7 @@ use_ok 'PublicInbox::Filter::Mirror';
 my $f = PublicInbox::Filter::Mirror->new;
 ok($f, 'created PublicInbox::Filter::Mirror object');
 {
-       my $email = mime_load 't/filter_mirror.eml', sub {
-       my $html_body = "<html><body>hi</body></html>";
-       my $parts = [
-               Email::MIME->create(
-                       attributes => {
-                               content_type => 'text/html; charset=UTF-8',
-                               encoding => 'base64',
-                       },
-                       body => $html_body,
-               ),
-               Email::MIME->create(
-                       attributes => {
-                               content_type => 'text/plain',
-                               encoding => 'quoted-printable',
-                       },
-                       body => 'hi = "bye"',
-               )
-       ];
-       Email::MIME->create(
-               header_str => [
-                 From => 'a@example.com',
-                 Subject => 'blah',
-                 'Content-Type' => 'multipart/alternative'
-               ],
-               parts => $parts,
-       )}; # mime_laod sub
+       my $email = mime_load 't/mda-mime.eml';
        is($f->ACCEPT, $f->delivery($email), 'accept any trash that comes');
 }