diff options
| author | dakkar <dakkar@thenautilus.net> | 2017-02-07 18:32:55 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2017-02-07 18:32:55 +0000 |
| commit | ed980d6059ac994499f1a75b4a56796e00184ff7 (patch) | |
| tree | 578e494c6f8768760eea4861a99494d8402f7858 /t | |
| parent | Fix typo in POD heading (diff) | |
| download | Sietima-ed980d6059ac994499f1a75b4a56796e00184ff7.tar.gz Sietima-ed980d6059ac994499f1a75b4a56796e00184ff7.tar.bz2 Sietima-ed980d6059ac994499f1a75b4a56796e00184ff7.zip | |
rename 'admin' to 'owner'
Diffstat (limited to 't')
| -rw-r--r-- | t/tests/sietima/multi-role/debounce-moderate.t | 4 | ||||
| -rw-r--r-- | t/tests/sietima/role/headers.t | 6 | ||||
| -rw-r--r-- | t/tests/sietima/role/subscriberonly/moderate.t | 8 |
3 files changed, 9 insertions, 9 deletions
diff --git a/t/tests/sietima/multi-role/debounce-moderate.t b/t/tests/sietima/multi-role/debounce-moderate.t index 8612df0..e61c551 100644 --- a/t/tests/sietima/multi-role/debounce-moderate.t +++ b/t/tests/sietima/multi-role/debounce-moderate.t @@ -8,13 +8,13 @@ sub test_one($traits,$should_send=1) { 'one@users.example.com', 'two@users.example.com', ); - my $admin = 'admin@lists.example.com'; + my $owner = 'owner@lists.example.com'; my $ms = Test::Sietima::MailStore->new(); my $s = make_sietima( with_traits => $traits, subscribers => \@subscriber_addresses, - admin => $admin, + owner => $owner, mail_store => $ms, ); diff --git a/t/tests/sietima/role/headers.t b/t/tests/sietima/role/headers.t index 7b3e4b7..3052781 100644 --- a/t/tests/sietima/role/headers.t +++ b/t/tests/sietima/role/headers.t @@ -17,9 +17,9 @@ package Sietima::Role::ForTesting { }; my $s = make_sietima( - with_traits => ['Headers','WithAdmin','ForTesting'], + with_traits => ['Headers','WithOwner','ForTesting'], name => 'test-list', - admin => 'admin@example.com', + owner => 'owner@example.com', subscribers => [ 'one@users.example.com', 'two@users.example.com', @@ -33,7 +33,7 @@ subtest 'list headers should be added' => sub { object { call sub { +{ shift->header_str_pairs } } => hash { field 'List-Id' => 'test-list <sietima-test.list.example.com>'; - field 'List-Owner' => '<mailto:admin@example.com>'; + field 'List-Owner' => '<mailto:owner@example.com>'; field 'List-Post' => '<mailto:sietima-test@list.example.com>'; field 'List-Test1' => '<mailto:someone@example.com>'; field 'List-Test-2' => 'http://test.example.com'; diff --git a/t/tests/sietima/role/subscriberonly/moderate.t b/t/tests/sietima/role/subscriberonly/moderate.t index c4e3005..44999bd 100644 --- a/t/tests/sietima/role/subscriberonly/moderate.t +++ b/t/tests/sietima/role/subscriberonly/moderate.t @@ -7,12 +7,12 @@ my @subscriber_addresses = ( 'one@users.example.com', 'two@users.example.com', ); -my $admin = 'admin@lists.example.com'; +my $owner = 'owner@lists.example.com'; my $ms = Test::Sietima::MailStore->new(); my $s = make_sietima( with_traits => ['SubscriberOnly::Moderate'], subscribers => \@subscriber_addresses, - admin => $admin, + owner => $owner, mail_store => $ms, ); @@ -38,7 +38,7 @@ sub test_from_non_sub() { o => object { call [header_str => 'subject'] => match qr{\bheld for moderation\b}; call [header_str => 'from'] => match qr{\b\Q$from\E\b}; - call [header_str => 'to'] => match qr{\b\Q$admin\E\b}; + call [header_str => 'to'] => match qr{\b\Q$owner\E\b}; call_list parts => [ object { call body => match qr{Use id \S+ to refer to it}; @@ -51,7 +51,7 @@ sub test_from_non_sub() { ]; }, from => $from, - to => [$admin], + to => [$owner], }], ); } |