diff options
author | dakkar <dakkar@thenautilus.net> | 2017-03-24 16:25:53 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2017-03-24 16:25:53 +0000 |
commit | 7f40cd0feda1e73cb79ac800762d19f4d5699a7b (patch) | |
tree | 3e6e9282e8c2d20120b2aab198887ef54d5331a6 /t | |
parent | updated presentation (diff) | |
download | Sietima-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.t | 4 | ||||
-rw-r--r-- | t/tests/sietima/role/manualsubscription.t | 2 |
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>'; |