role: ReplyTo

per-user reply-to munging!

also:
* deliveries_are can now test whole messages
* deliveries_are fails on extra recipients
* easier-to-use Subscriber-from-HashRef coercion
* nomail.t checks more

1 files changed, 34 insertions, 14 deletions

diff --git a/t/tests/sietima/role/nomail.t b/t/tests/sietima/role/nomail.t
index fe64e84..a0be192 100644
--- a/t/tests/sietima/role/nomail.t
+++ b/t/tests/sietima/role/nomail.t
@@ -5,20 +5,40 @@ use 5.024;
 use lib 't/lib';
 use Test::Sietima;
 
-my $s = make_sietima(
-    with_traits => ['NoMail'],
-    subscribers => [
-        {
-            raw_address => 'one@users.example.com',
-            wants_mail => 0,
-        },
-        'two@users.example.com',
-    ],
-);
+subtest 'disabled' => sub {
+    my $s = make_sietima(
+        with_traits => ['NoMail'],
+        subscribers => [
+            {
+                address => 'one@users.example.com',
+                wants_mail => 0,
+            },
+            'two@users.example.com',
+        ],
+    );
 
-test_sending(
-    sietima => $s,
-    to => ['two@users.example.com'],
-);
+    test_sending(
+        sietima => $s,
+        to => ['two@users.example.com'],
+    );
+};
+
+subtest 'enabled' => sub {
+    my $s = make_sietima(
+        with_traits => ['NoMail'],
+        subscribers => [
+            {
+                address => 'one@users.example.com',
+                wants_mail => 1,
+            },
+            'two@users.example.com',
+        ],
+    );
+
+    test_sending(
+        sietima => $s,
+        to => ['one@users.example.com','two@users.example.com'],
+    );
+};
 
 done_testing;