diff options
author | Eric Wong <e@80x24.org> | 2016-07-26 00:35:02 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-07-26 00:35:02 +0000 |
commit | b34a7f6a284493c28fb5cf5a96e278fde0725ce2 (patch) | |
tree | f82743fecc3276520f42091b7bd1c5796f51d7b2 /t | |
parent | 10e38b3b0fdad7e2881f0571f9b2717df2151f7a (diff) | |
download | public-inbox-b34a7f6a284493c28fb5cf5a96e278fde0725ce2.tar.gz |
This is common when multiple participants are in a thread.
Diffstat (limited to 't')
-rw-r--r-- | t/precheck.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/precheck.t b/t/precheck.t index 6c353d8d..0c3ce1c4 100644 --- a/t/precheck.t +++ b/t/precheck.t @@ -27,6 +27,23 @@ sub do_checks { } { + my $s = Email::Simple->create( + header => [ + From => 'abc@example.com', + To => 'abc@example.com', + Cc => 'c@example.com, another-list@example.com', + 'Content-Type' => 'text/plain', + Subject => 'list is fine', + 'Message-ID' => '<MID@host>', + Date => 'Wed, 09 Apr 2014 01:28:34 +0000', + ], + body => "hello world\n", + ); + my $addr = [ 'c@example.com', 'd@example.com' ]; + ok(PublicInbox::MDA->precheck($s, $addr), 'Cc list is OK'); +} + +{ do_checks(Email::Simple->create( header => [ From => 'a@example.com', |