Re: Failed tests on CentOS-7

[Eric Wong <e@80x24.org>]

Konstantin Ryabitsev <konstantin@linuxfoundation.org> wrote:
> Hello:
> 
> Running "make test" I get the following failures:
> 
> t/content_id.t ......... 1/?
> #   Failed test 'content_id does not mutate From:'
> #   at t/content_id.t line 29.
> #          got: '"Quoted N'Ame" <foo@EXAMPLE.com>'
> #     expected: '"Quoted N\'Ame" <foo@EXAMPLE.com>'

> Anything I can do to help troubleshoot this? The modules were installed
> from CPAN per the INSTALL file.

Which versions of perl, Email::MIME, Email::MIME::Encodings, and
Email::Simple are you running?

Does s/header_str_set/header_set/ work around the problem?
(if so, I think it might be E::M::Encodings...)

The following should improve the readability of the failure
messages, I got the order of is() args backwards and q() can be
more readable in source than ''.

--- a/t/content_id.t
+++ b/t/content_id.t
@@ -23,10 +23,10 @@ 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>';
+	my $n = q("Quoted N'Ame" <foo@EXAMPLE.com>);
 	$mime->header_str_set($h, "$n");
 	my $q = content_id($mime);
-	is($n, $mime->header($h), "content_id does not mutate $h:");
+	is($mime->header($h), $n, "content_id does not mutate $h:");
 	$mime->header_str_set($h, 'Quoted N\'Ame <foo@example.com>');
 	my $nq = content_id($mime);
 	is($nq, $q, "quotes ignored in $h:");