content_id: workaround quote handling change in Email::* modules

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/

diff --git a/t/content_id.t b/t/content_id.t
index 01ce65e5f264b4cff889b8f730943d254d936f90..990eabe16b1934dd17fd79e720ea7fe9c9fd47ef 100644 (file)
--- 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:");
 }