diff options
Diffstat (limited to 't')
-rw-r--r-- | t/content_id.t | 8 |
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:"); } |