X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Ffilter_base.t;h=7919dd65098e0309662a2f7b7fec70bc9035376f;hb=5d8dbb4aca5afcc6b98a4d951f03003fb7eaf356;hp=f25d2dd7fb01d3271768cdaba7164344d5a3019d;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git diff --git a/t/filter_base.t b/t/filter_base.t index f25d2dd7..7919dd65 100644 --- a/t/filter_base.t +++ b/t/filter_base.t @@ -3,7 +3,7 @@ use strict; use warnings; use Test::More; -use Email::MIME; +use PublicInbox::TestCommon; use_ok 'PublicInbox::Filter::Base'; { @@ -21,6 +21,7 @@ use_ok 'PublicInbox::Filter::Base'; { my $f = PublicInbox::Filter::Base->new; + my $email = mime_load 't/filter_base-xhtml.eml', sub { my $html_body = "hi"; my $parts = [ Email::MIME->create( @@ -38,19 +39,20 @@ use_ok 'PublicInbox::Filter::Base'; 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_load sub is($f->delivery($email), 100, "xhtml rejected"); } { my $f = PublicInbox::Filter::Base->new; + my $email = mime_load 't/filter_base-junk.eml', sub { my $parts = [ Email::MIME->create( attributes => { @@ -67,14 +69,14 @@ use_ok 'PublicInbox::Filter::Base'; body => 'junk', ) ]; - my $email = Email::MIME->create( + Email::MIME->create( header_str => [ From => 'a@example.com', Subject => 'blah', 'Content-Type' => 'multipart/mixed' ], parts => $parts, - ); + )}; # mime_load sub is($f->delivery($email), 100, 'proprietary format rejected on glob'); }