aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2017-03-24 16:25:53 +0000
committerdakkar <dakkar@thenautilus.net>2017-03-24 16:25:53 +0000
commit7f40cd0feda1e73cb79ac800762d19f4d5699a7b (patch)
tree3e6e9282e8c2d20120b2aab198887ef54d5331a6 /t
parentupdated presentation (diff)
downloadSietima-7f40cd0feda1e73cb79ac800762d19f4d5699a7b.tar.gz
Sietima-7f40cd0feda1e73cb79ac800762d19f4d5699a7b.tar.bz2
Sietima-7f40cd0feda1e73cb79ac800762d19f4d5699a7b.zip
fix list headers
Diffstat (limited to 't')
-rw-r--r--t/tests/sietima/role/headers.t4
-rw-r--r--t/tests/sietima/role/manualsubscription.t2
2 files changed, 4 insertions, 2 deletions
diff --git a/t/tests/sietima/role/headers.t b/t/tests/sietima/role/headers.t
index 9f3e664..eb96dd2 100644
--- a/t/tests/sietima/role/headers.t
+++ b/t/tests/sietima/role/headers.t
@@ -12,6 +12,7 @@ package Sietima::Role::ForTesting {
$self->$orig->%*,
test1 => AddressFromStr->coerce('name <someone@example.com>'),
'test+2' => 'http://test.example.com',
+ test3 => ['name (comment) <other@example.com>','mailto:thing@example.com' ],
};
};
};
@@ -31,12 +32,13 @@ subtest 'list headers should be added' => sub {
sietima => $s,
mails => [
object {
- call sub { +{ shift->header_str_pairs } } => hash {
+ call sub { +{ shift->header_raw_pairs } } => hash {
field 'List-Id' => 'test-list <sietima-test.list.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>';
+ field 'List-Test3' => '<mailto:other@example.com> (comment), <mailto:thing@example.com>';
field 'Date' => D();
field 'MIME-Version' => D();
diff --git a/t/tests/sietima/role/manualsubscription.t b/t/tests/sietima/role/manualsubscription.t
index f99805d..ade2062 100644
--- a/t/tests/sietima/role/manualsubscription.t
+++ b/t/tests/sietima/role/manualsubscription.t
@@ -17,7 +17,7 @@ subtest '(un)sub headers should be added' => sub {
sietima => $s,
mails => [
object {
- call sub { +{ shift->header_str_pairs } } => hash {
+ call sub { +{ shift->header_raw_pairs } } => hash {
field 'List-Subscribe' => '<mailto:owner@example.com?subject=Please+add+me+to+test-list>';
field 'List-Unsubscribe' => '<mailto:owner@example.com?subject=Please+remove+me+from+test-list>';