diff options
| author | dakkar <dakkar@thenautilus.net> | 2017-01-04 16:07:14 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2017-01-04 16:07:41 +0000 |
| commit | 3efd2284c8fd21c0a828b1ce5be913a83682019e (patch) | |
| tree | d803a97e89ee788544e4dc0e32b15d7eeba5b694 /t | |
| parent | bugs from live testing (diff) | |
| download | Sietima-3efd2284c8fd21c0a828b1ce5be913a83682019e.tar.gz Sietima-3efd2284c8fd21c0a828b1ce5be913a83682019e.tar.bz2 Sietima-3efd2284c8fd21c0a828b1ce5be913a83682019e.zip | |
fix&test malformed moderation email
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/Test/Sietima.pm | 1 | ||||
| -rw-r--r-- | t/tests/sietima/role/subscriberonly/moderate.t | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm index d7b720c..a94a51c 100644 --- a/t/lib/Test/Sietima.pm +++ b/t/lib/Test/Sietima.pm @@ -86,6 +86,7 @@ sub deliveries_are (%args) { field to => bag { item $_ for $m->{to}->@*; }; + field from => $m->{from} if $m->{from}; etc(); }; } 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], }], ); |