diff options
Diffstat (limited to 't/content_id.t')
| -rw-r--r-- | t/content_id.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/content_id.t b/t/content_id.t index adcdb6c1..01ce65e5 100644 --- a/t/content_id.t +++ b/t/content_id.t @@ -22,4 +22,14 @@ my $orig = content_id($mime); 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 $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>'); + my $nq = content_id($mime); + is($nq, $q, "quotes ignored in $h:"); +} + done_testing(); |