From 274617a10bdd958d7e0da3048ce62fb87bfd36a6 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 19 Jun 2016 17:13:22 +0100 Subject: ::Subscriber now supports aliases and has a ->match method --- t/tests/sietima/subscriber.t | 46 +++++++++++++++++++++++++++++++------------- 1 file changed, 33 insertions(+), 13 deletions(-) (limited to 't') 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) ', -); +subtest 'simple' => sub { + my $s = Sietima::Subscriber->new( + raw_address => 'Gino (pino) ', + ); -is( - $s, - object { - call address => 'gino@pino.example.com'; - call name => 'Gino'; - call original => 'Gino (pino) '; - call prefs => {}; - }, - 'construction and delegation should work', -); + is( + $s, + object { + call address => 'gino@pino.example.com'; + call name => 'Gino'; + call original => 'Gino (pino) '; + call prefs => {}; + }, + 'construction and delegation should work', + ); +}; + +subtest 'aliases' => sub { + my $s = Sietima::Subscriber->new( + raw_address => 'Gino (pino) ', + 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; -- cgit v1.2.3