diff options
Diffstat (limited to 't/tests/sietima/role/headers.t')
| -rw-r--r-- | t/tests/sietima/role/headers.t | 4 |
1 files changed, 3 insertions, 1 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(); |