diff options
Diffstat (limited to 't/precheck.t')
| -rw-r--r-- | t/precheck.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/precheck.t b/t/precheck.t index 974d6a38..89564097 100644 --- a/t/precheck.t +++ b/t/precheck.t @@ -12,9 +12,6 @@ sub do_checks { my $f = Email::Filter->new(data => $s->as_string); - ok(PublicInbox::MDA->precheck($f, undef), - "ORIGINAL_RECIPIENT unset is OK"); - my $recipient = 'foo@example.com'; ok(!PublicInbox::MDA->precheck($f, $recipient), "wrong ORIGINAL_RECIPIENT rejected"); @@ -26,6 +23,10 @@ sub do_checks { $recipient = 'c@example.com'; ok(PublicInbox::MDA->precheck($f, $recipient), "ORIGINAL_RECIPIENT in Cc: is OK"); + + $recipient = [ 'c@example.com', 'd@example.com' ]; + ok(PublicInbox::MDA->precheck($f, $recipient), + "alias list is OK"); } { |