X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Ffilter_mirror.t;h=694209d9e07076f5e404d1ade759ccd58886f9f4;hp=b19461469ab6949016c3fab6c036814fb493e6eb;hb=5d8dbb4aca5afcc6b98a4d951f03003fb7eaf356;hpb=58852a50f6a72265cce1e4729aae3875bba5aa96 diff --git a/t/filter_mirror.t b/t/filter_mirror.t index b1946146..694209d9 100644 --- a/t/filter_mirror.t +++ b/t/filter_mirror.t @@ -3,12 +3,13 @@ use strict; use warnings; use Test::More; -use Email::MIME; +use PublicInbox::TestCommon; 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 = "hi"; my $parts = [ Email::MIME->create( @@ -26,15 +27,15 @@ ok($f, 'created PublicInbox::Filter::Mirror object'); body => 'hi = "bye"', ) ]; - my $email = Email::MIME->create( + Email::MIME->create( header_str => [ From => 'a@example.com', Subject => 'blah', 'Content-Type' => 'multipart/alternative' ], parts => $parts, - ); + )}; # mime_laod sub is($f->ACCEPT, $f->delivery($email), 'accept any trash that comes'); } -done_testing(); + done_testing();