diff options
| author | dakkar <dakkar@thenautilus.net> | 2017-01-04 16:48:06 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2017-01-04 16:48:06 +0000 |
| commit | ef622a88e67677d4d07d057dc6437d567729e66a (patch) | |
| tree | 763098f3cf7c88260efa8042d2d5913de8f0bc40 /t | |
| parent | fix&test malformed moderation email (diff) | |
| download | Sietima-ef622a88e67677d4d07d057dc6437d567729e66a.tar.gz Sietima-ef622a88e67677d4d07d057dc6437d567729e66a.tar.bz2 Sietima-ef622a88e67677d4d07d057dc6437d567729e66a.zip | |
fix testing when no recipients specified
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/Test/Sietima.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm index a94a51c..1c51def 100644 --- a/t/lib/Test/Sietima.pm +++ b/t/lib/Test/Sietima.pm @@ -85,7 +85,7 @@ sub deliveries_are (%args) { field envelope => hash { field to => bag { item $_ for $m->{to}->@*; - }; + } if $m->{to}; field from => $m->{from} if $m->{from}; etc(); }; @@ -101,7 +101,7 @@ sub deliveries_are (%args) { end(); }; } - elsif (my @recipients = do {my $to = $args{to}; ref($to) ? $to->@* : $to }) { + elsif (my @recipients = do {my $to = $args{to}; ref($to) ? $to->@* : $to // () }) { $checker = array { item hash { field envelope => hash { |