From 7f40cd0feda1e73cb79ac800762d19f4d5699a7b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 24 Mar 2017 16:25:53 +0000
Subject: fix list headers

---
 t/tests/sietima/role/headers.t            | 4 +++-
 t/tests/sietima/role/manualsubscription.t | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 't')

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>';
 
-- 
cgit v1.2.3