X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Fprecheck.t;h=a8fd31b1ab33423d3261d807a554e08a7d3baa66;hp=53d4fb2bdbcb5b8629c5466beb9fadc3d29dc294;hb=d4507254cc1261c535e48994c99b1e3c7e1f3be2;hpb=129c630a7ec3e100bba272631c3880b9beac9cef diff --git a/t/precheck.t b/t/precheck.t index 53d4fb2b..a8fd31b1 100644 --- a/t/precheck.t +++ b/t/precheck.t @@ -27,65 +27,61 @@ 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' => '', - Date => 'Wed, 09 Apr 2014 01:28:34 +0000', - ], - body => "hello world\n", - ); + my $s = Email::Simple->new(<<'EOF'); +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: +Date: Wed, 09 Apr 2014 01:28:34 +0000 + +hello world +EOF 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', - To => 'b@example.com', - Cc => 'c@example.com', - 'Content-Type' => 'text/plain', - Subject => 'this is a subject', - 'Message-ID' => '', - Date => 'Wed, 09 Apr 2014 01:28:34 +0000', - ], - body => "hello world\n", - )); + do_checks(Email::Simple->new(<<'EOF')); +From: a@example.com +To: b@example.com +Cc: c@example.com +Content-Type: text/plain +Subject: this is a subject +Message-ID: +Date: Wed, 09 Apr 2014 01:28:34 +0000 + +hello world +EOF } { - do_checks(Email::Simple->create( - header => [ - From => 'a@example.com', - To => 'b+plus@example.com', - Cc => 'John Doe ', - 'Content-Type' => 'text/plain', - Subject => 'this is a subject', - 'Message-ID' => '', - Date => 'Wed, 09 Apr 2014 01:28:34 +0000', - ], - body => "hello world\n", - )); + do_checks(Email::Simple->new(<<'EOF')); +From: a@example.com +To: b+plus@example.com +Cc: John Doe +Content-Type: text/plain +Subject: this is a subject +Message-ID: +Date: Wed, 09 Apr 2014 01:28:34 +0000 + +hello world +EOF } { my $recipient = 'b@example.com'; - my $s = Email::Simple->create( - header => [ - To => 'b@example.com', - Cc => 'c@example.com', - 'Content-Type' => 'text/plain', - Subject => 'this is a subject', - 'Message-ID' => '', - Date => 'Wed, 09 Apr 2014 01:28:34 +0000', - ], - body => "hello world\n", - ); + my $s = Email::Simple->new(<<'EOF'); +To: b@example.com +Cc: c@example.com +Content-Type: text/plain +Subject: this is a subject +Message-ID: +Date: Wed, 09 Apr 2014 01:28:34 +0000 + +hello world +EOF ok(!PublicInbox::MDA->precheck($s, $recipient), "missing From: is rejected"); }