I am upgrading MIME-tools from 5.417 to 5.420. When I make test, the following
test fails :
t/Entity............FAILED test 5
Failed 1/30 tests, 96.67% okay
Here is the test :
#-----test------
my $e = MIME::Entity->build(Path => "./testin/short.txt",
Filename => undef);
my $got = $e->head->mime_attr('content-type.name');
$T->ok(!$got,
"Path: with explicitly undef Filename, got no filename",
Got => $got);
my $x = $e->stringify();
my $version = $MIME::Entity::VERSION;
my $desired = "Content-Type: text/plain\nContent-Disposition: inline\nConte
nt-Transfer-Encoding: binary\nMIME-Version: 1.0\nX-Mailer: MIME-tools $version (
Entity $version)\n\nDear «François Müller»,\n\nAs you requested, I have rewritte
n the MIME:: parser modules to support\nthe creation of MIME messages.\n\nEryq\n
";
$T->ok($x eq $desired,
"Tested stringify",
Got => $x);
}
The input :
Dear «François Müller»,
As you requested, I have rewritten the MIME:: parser modules to support
the creation of MIME messages.
Eryq
The output :
5: Tested stringify
5: Got: "Content-Type: text/plain\nContent-Disposition: inline\nContent-Transf
er-Encoding: binary\nMime-Version: 1.0\nX-Mailer: MIME-tools 5.420 (Entity 5.420
)\n\nDear \ABFran\E7ois M\FCller\BB,\n\nAs you requested, I have rewritten the M
IME:: parser modules to support\nthe creation of MIME messages.\n\nEryq\n"
5: not ok 5
What is wrong ?
Thank you
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID. You may ignore it.
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
