aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2017-02-05 13:29:42 +0000
committerdakkar <dakkar@thenautilus.net>2017-02-05 13:29:42 +0000
commitdcbf392ecd8e22ad4d3d326b83d89d749ca88481 (patch)
treec35b9a2f1b13c939dd7de7023a0650f45365170c /t
parentPOD for ::Types (diff)
downloadSietima-dcbf392ecd8e22ad4d3d326b83d89d749ca88481.tar.gz
Sietima-dcbf392ecd8e22ad4d3d326b83d89d749ca88481.tar.bz2
Sietima-dcbf392ecd8e22ad4d3d326b83d89d749ca88481.zip
::Subscriber 'raw_address' is now 'primary'
It was a horrible name. The coercion from hashref is also simplified this way.
Diffstat (limited to 't')
-rw-r--r--t/tests/sietima/role/nomail.t4
-rw-r--r--t/tests/sietima/role/replyto.t4
-rw-r--r--t/tests/sietima/role/subscriberonly/drop.t2
-rw-r--r--t/tests/sietima/subscriber.t4
4 files changed, 7 insertions, 7 deletions
diff --git a/t/tests/sietima/role/nomail.t b/t/tests/sietima/role/nomail.t
index 1ff724c..2449f5a 100644
--- a/t/tests/sietima/role/nomail.t
+++ b/t/tests/sietima/role/nomail.t
@@ -7,7 +7,7 @@ subtest 'disabled' => sub {
with_traits => ['NoMail'],
subscribers => [
{
- address => 'one@users.example.com',
+ primary => 'one@users.example.com',
prefs => { wants_mail => 0 },
},
'two@users.example.com',
@@ -25,7 +25,7 @@ subtest 'enabled' => sub {
with_traits => ['NoMail'],
subscribers => [
{
- address => 'one@users.example.com',
+ primary => 'one@users.example.com',
prefs => { wants_mail => 1 },
},
'two@users.example.com',
diff --git a/t/tests/sietima/role/replyto.t b/t/tests/sietima/role/replyto.t
index 0ede95e..e39f8b3 100644
--- a/t/tests/sietima/role/replyto.t
+++ b/t/tests/sietima/role/replyto.t
@@ -81,7 +81,7 @@ subtest 'enabled for some' => sub {
munge_reply_to => 0,
subscribers => [
{
- address => 'one@users.example.com',
+ primary => 'one@users.example.com',
prefs => { munge_reply_to => 1 },
},
'two@users.example.com',
@@ -114,7 +114,7 @@ subtest 'disabled for some' => sub {
munge_reply_to => 1,
subscribers => [
{
- address => 'one@users.example.com',
+ primary => 'one@users.example.com',
prefs => { munge_reply_to => 0 },
},
'two@users.example.com',
diff --git a/t/tests/sietima/role/subscriberonly/drop.t b/t/tests/sietima/role/subscriberonly/drop.t
index 77b4b5f..ac37346 100644
--- a/t/tests/sietima/role/subscriberonly/drop.t
+++ b/t/tests/sietima/role/subscriberonly/drop.t
@@ -5,7 +5,7 @@ use Test::Sietima;
my @subscriber_addresses = (
'one@users.example.com',
{
- address => 'two@users.example.com',
+ primary => 'two@users.example.com',
aliases => [ 'two-two@users.example.com' ],
},
);
diff --git a/t/tests/sietima/subscriber.t b/t/tests/sietima/subscriber.t
index 23651a9..6761410 100644
--- a/t/tests/sietima/subscriber.t
+++ b/t/tests/sietima/subscriber.t
@@ -5,7 +5,7 @@ use Sietima::Subscriber;
subtest 'simple' => sub {
my $s = Sietima::Subscriber->new(
- raw_address => 'Gino (pino) <gino@pino.example.com>',
+ primary => 'Gino (pino) <gino@pino.example.com>',
);
is(
@@ -22,7 +22,7 @@ subtest 'simple' => sub {
subtest 'aliases' => sub {
my $s = Sietima::Subscriber->new(
- raw_address => 'Gino (pino) <gino@pino.example.com>',
+ primary => 'Gino (pino) <gino@pino.example.com>',
aliases => [qw(also-gino@pino.example.com maybe-gino@rino.example.com)],
);