From 949572dc9d547b2eb5c7cb268551524a36ff28c3 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 11 May 2018 19:20:15 +0000 Subject: 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/ --- t/content_id.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 't') 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" '; - $mime->header_str_set($h, "$n"); + my $n = q("Quoted N'Ame" ); + $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 '); + is($mime->header($h), $n, "content_id does not mutate $h:"); + $mime->header_set($h, 'Quoted N\'Ame '); my $nq = content_id($mime); is($nq, $q, "quotes ignored in $h:"); } -- cgit v1.2.3-24-ge0c7