::Subscriber now supports aliases

and has a ->match method

1 files changed, 33 insertions, 13 deletions

diff --git a/t/tests/sietima/subscriber.t b/t/tests/sietima/subscriber.t
index 1f4c608..5a06bba 100644
--- a/t/tests/sietima/subscriber.t
+++ b/t/tests/sietima/subscriber.t
@@ -6,19 +6,39 @@ use Test2::Bundle::Extended;
 use Test2::Plugin::DieOnFail;
 use Sietima::Subscriber;
 
-my $s = Sietima::Subscriber->new(
-    raw_address => 'Gino (pino) <gino@pino.example.com>',
-);
+subtest 'simple' => sub {
+    my $s = Sietima::Subscriber->new(
+        raw_address => 'Gino (pino) <gino@pino.example.com>',
+    );
 
-is(
-    $s,
-    object {
-        call address => 'gino@pino.example.com';
-        call name => 'Gino';
-        call original => 'Gino (pino) <gino@pino.example.com>';
-        call prefs => {};
-    },
-    'construction and delegation should work',
-);
+    is(
+        $s,
+        object {
+            call address => 'gino@pino.example.com';
+            call name => 'Gino';
+            call original => 'Gino (pino) <gino@pino.example.com>';
+            call prefs => {};
+        },
+        'construction and delegation should work',
+    );
+};
+
+subtest 'aliases' => sub {
+    my $s = Sietima::Subscriber->new(
+        raw_address => 'Gino (pino) <gino@pino.example.com>',
+        aliases => [qw(also-gino@pino.example.com maybe-gino@rino.example.com)],
+    );
+
+    is(
+        $s,
+        object {
+            for my $a (qw(gino@pino also-gino@pino maybe-gino@rino)) {
+                call [match => "${a}.example.com"] => T();
+            }
+        },
+        'all addresses should ->match()',
+    );
+
+};
 
 done_testing;