Bug #28403 for Email-MIME: tests fail when PERL_UNICODE is set

I have PERL_UNICODE=ASDL set (see perlrun). Attached log was produced by make test TEST_VERBOSE=1 > make-test-test-verbose.log 2>&1 Binmode your binary files. diff -ru Email-MIME-1.860~/t/1.t Email-MIME-1.860/t/1.t --- Email-MIME-1.860~/t/1.t 2007-07-14 04:00:00.000000000 +0200 +++ Email-MIME-1.860/t/1.t 2007-07-20 16:47:39.000000000 +0200 @@ -27,6 +27,7 @@ ); open(GIF, "t/Mail/att-1.gif") or die $!; +binmode GIF; my $gif = do { local $/; <GIF> }; is($body, $gif, "Externally consistent"); is($email->filename, "1.gif", "Filename is correct"); diff -ru Email-MIME-1.860~/t/3.t Email-MIME-1.860/t/3.t --- Email-MIME-1.860~/t/3.t 2007-07-14 04:14:33.000000000 +0200 +++ Email-MIME-1.860/t/3.t 2007-07-20 16:48:39.000000000 +0200 @@ -7,6 +7,7 @@ use Email::MIME; open IN, "t/Mail/joejob" or die $!; +binmode IN; undef $/; my $string = <IN>; my $obj = Email::MIME->new($string);

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/1...............utf8 "\xF7" does not map to Unicode at t/1.t line 30, <GIF> chunk 1. # Failed test 'Externally consistent' # at t/1.t line 31. Wide character in print at /home/daxim/perl/lib/perl5/Test/Builder.pm line 1265, <GIF> line 1. # got: 'GIF89a÷)))111999JJJŒŒŒ”””œœœ¥¥¥µµµÎÎÎçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,_#D€À€
@ÁA
€XÀÁÀ‡4€ 8€°‘#Œ”¤€#+#¶äÓe”/cI3&(0àè±áD—- # üX @ F;' # expected: 'GIF89a÷)))111999JJJŒŒŒ”””œœœ¥¥¥µµµÎÎÎçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,_#D€À€
@ÁA
€XÀÁÀ‡4€ 8€°‘#Œ”¤€#+#¶äÓe”/cI3&(0àè±áD—- # üX @ F;' # Looks like you failed 1 test of 10. ok 1 - use Email::MIME; ok 2 - The object isa Email::MIME ok 3 - The object isa Email::MIME ok 4 - Internally consistent not ok 5 - Externally consistent ok 6 - Filename is correct ok 7 - got back a header in scalar context ok 8 - header in scalar context is not ref ok 9 - got all three back in list context ok 10 - we can stringify without dying 1..10 dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 5 Failed 1/10 tests, 90.00% okay t/2...............ok 1 - use Email::MIME; ok 2 - The object isa Email::MIME ok 3 ok 4 - Filename correct ok 5 - Filename correct ok 6 - Filename consistent ok 7 - got the image chunk ok 8 - and not the epilogue 1..8 ok t/3...............utf8 "\xAA" does not map to Unicode at t/3.t line 11, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple.pm line 103, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in match position at /home/daxim/perl/lib/perl5/Email/Simple.pm line 104, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in match position at /home/daxim/perl/lib/perl5/Email/Simple.pm line 104, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in match position at /home/daxim/perl/lib/perl5/Email/Simple.pm line 104, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xaa, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected non-continuation byte 0xfc, 1 byte after start byte 0xfc, expected 6 bytes) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. Malformed UTF-8 character (unexpected continuation byte 0xae, with no preceding start byte) in pattern match (m//) at /home/daxim/perl/lib/perl5/Email/Simple/Header.pm line 74, <IN> chunk 1. 1..3 ok 1 - Decoded header ok 2 - Decoded header ok 3 - Decoded header ok t/nested-parts....1..5 ok 1 - use Email::MIME; ok 2 - The object isa Email::MIME ok 3 - outer part ok 4 - middle part ok 5 - inner part ok t/pod-coverage....1..1 ok 1 - Pod coverage on Email::MIME ok t/pod.............1..1 ok 1 - blib/lib/Email/MIME.pm ok Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/1.t 1 256 10 1 5 Failed 1/6 test scripts. 1/28 subtests failed. Files=6, Tests=28, 1 wallclock secs ( 0.49 cusr + 0.07 csys = 0.56 CPU) Failed 1/6 test programs. 1/28 subtests failed. make: *** [test_dynamic] Fehler 255