diff options
author | Eric Wong <e@80x24.org> | 2016-04-09 00:57:26 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-04-09 00:57:26 +0000 |
commit | 5a590bcb6813215a3c26b88bbf9af9f80258d20c (patch) | |
tree | d6ca65fd50ef5b150602eeaa25d5b6476991f887 /t | |
parent | 7fe73c43efaa408d4dc8a5d8b9988feef7ff9f19 (diff) | |
download | public-inbox-5a590bcb6813215a3c26b88bbf9af9f80258d20c.tar.gz |
Allow users to do wacky things here if they really wish... It's bad practice, but at least allow other readers to mock users of these headers :P
Diffstat (limited to 't')
-rw-r--r-- | t/filter.t | 18 |
1 files changed, 0 insertions, 18 deletions
@@ -297,24 +297,6 @@ sub count_body_parts { like($s->as_string, qr/scrubbed/, "scrubbed message"); } -{ - my $s = Email::MIME->create( - header => [ - From => 'a@example.com', - To => 'b@example.com', - 'Content-Type' => 'text/plain', - 'Mail-Followup-To' => 'c@example.com', - Subject => 'mfttest', - ], - body => "mft\n", - ); - - is('c@example.com', $s->header("Mail-Followup-To"), - "mft set correctly"); - is(1, PublicInbox::Filter->run($s), "run succeeded for mft"); - is(undef, $s->header("Mail-Followup-To"), "mft stripped"); -} - # multi-part with application/octet-stream { my $os = 'application/octet-stream'; |