aboutsummaryrefslogtreecommitdiff
path: root/t/tests/sietima/role/subscriberonly/moderate.t
diff options
context:
space:
mode:
Diffstat (limited to 't/tests/sietima/role/subscriberonly/moderate.t')
-rw-r--r--t/tests/sietima/role/subscriberonly/moderate.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/tests/sietima/role/subscriberonly/moderate.t b/t/tests/sietima/role/subscriberonly/moderate.t
index be996e3..c4e3005 100644
--- a/t/tests/sietima/role/subscriberonly/moderate.t
+++ b/t/tests/sietima/role/subscriberonly/moderate.t
@@ -30,12 +30,15 @@ subtest 'from subscriber' => sub {
};
sub test_from_non_sub() {
+ my $from = $s->return_path->address;
test_sending(
sietima => $s,
mail => { from=>'someone@users.example.com' },
mails => [{
o => object {
call [header_str => 'subject'] => match qr{\bheld for moderation\b};
+ call [header_str => 'from'] => match qr{\b\Q$from\E\b};
+ call [header_str => 'to'] => match qr{\b\Q$admin\E\b};
call_list parts => [
object {
call body => match qr{Use id \S+ to refer to it};
@@ -47,6 +50,7 @@ sub test_from_non_sub() {
},
];
},
+ from => $from,
to => [$admin],
}],
);