# Copyright (C) 2016-2018 all contributors # License: AGPL-3.0+ use strict; use warnings; use Test::More; use Email::MIME; use_ok 'PublicInbox::Filter::Mirror'; my $f = PublicInbox::Filter::Mirror->new; ok($f, 'created PublicInbox::Filter::Mirror object'); { my $html_body = "hi"; 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"', ) ]; my $email = Email::MIME->create( header_str => [ From => 'a@example.com', Subject => 'blah', 'Content-Type' => 'multipart/alternative' ], parts => $parts, ); is($f->ACCEPT, $f->delivery($email), 'accept any trash that comes'); } done_testing();