X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Ffilter_base.t;h=2646321a8e715cee88e0213f49e8328cf965393f;hb=4eee5af6011cc8cdefb66c9729952c7eff5c0b0b;hp=f25d2dd7fb01d3271768cdaba7164344d5a3019d;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git diff --git a/t/filter_base.t b/t/filter_base.t index f25d2dd7..2646321a 100644 --- a/t/filter_base.t +++ b/t/filter_base.t @@ -1,9 +1,9 @@ -# Copyright (C) 2016-2020 all contributors +# Copyright (C) 2016-2021 all contributors # License: AGPL-3.0+ use strict; use warnings; use Test::More; -use Email::MIME; +use PublicInbox::TestCommon; use_ok 'PublicInbox::Filter::Base'; { @@ -21,60 +21,13 @@ use_ok 'PublicInbox::Filter::Base'; { my $f = PublicInbox::Filter::Base->new; - my $html_body = "hi"; - my $parts = [ - Email::MIME->create( - attributes => { - content_type => 'text/xhtml; 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, - ); + my $email = eml_load 't/filter_base-xhtml.eml'; is($f->delivery($email), 100, "xhtml rejected"); } { my $f = PublicInbox::Filter::Base->new; - my $parts = [ - Email::MIME->create( - attributes => { - content_type => 'application/vnd.ms-excel', - encoding => 'base64', - }, - body => 'junk', - ), - Email::MIME->create( - attributes => { - content_type => 'text/plain', - encoding => 'quoted-printable', - }, - body => 'junk', - ) - ]; - my $email = Email::MIME->create( - header_str => [ - From => 'a@example.com', - Subject => 'blah', - 'Content-Type' => 'multipart/mixed' - ], - parts => $parts, - ); + my $email = eml_load 't/filter_base-junk.eml'; is($f->delivery($email), 100, 'proprietary format rejected on glob'); }