about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2018-05-11 19:20:15 +0000
committerEric Wong <e@80x24.org>2018-05-11 19:23:07 +0000
commit949572dc9d547b2eb5c7cb268551524a36ff28c3 (patch)
tree813007e85af8941a57260cbac18d065f3eed4b51 /t
parent4db4bfa2c9178b315d2ac09cff794a4476ba1f6e (diff)
downloadpublic-inbox-949572dc9d547b2eb5c7cb268551524a36ff28c3.tar.gz
I'm not entirely sure where the behavior change lies, but
it seems to be in some of the latest CPAN versions of these
modules.  In any case, this only affects the test setup and
not actual behavior.

cf. https://public-inbox.org/meta/2a2bf0e1-fd1f-f8bf-95bc-dac47906ef43@linuxfoundation.org/
Diffstat (limited to 't')
-rw-r--r--t/content_id.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/content_id.t b/t/content_id.t
index 01ce65e5..990eabe1 100644
--- a/t/content_id.t
+++ b/t/content_id.t
@@ -23,11 +23,11 @@ my $reload = content_id(Email::MIME->new($mime->as_string));
 is($orig, $reload, 'content_id matches after serialization');
 
 foreach my $h (qw(From To Cc)) {
-        my $n = '"Quoted N\'Ame" <foo@EXAMPLE.com>';
-        $mime->header_str_set($h, "$n");
+        my $n = q("Quoted N'Ame" <foo@EXAMPLE.com>);
+        $mime->header_set($h, "$n");
         my $q = content_id($mime);
-        is($n, $mime->header($h), "content_id does not mutate $h:");
-        $mime->header_str_set($h, 'Quoted N\'Ame <foo@example.com>');
+        is($mime->header($h), $n, "content_id does not mutate $h:");
+        $mime->header_set($h, 'Quoted N\'Ame <foo@example.com>');
         my $nq = content_id($mime);
         is($nq, $q, "quotes ignored in $h:");
 }