From cb3ceaff22e7cf825cb18594107352306097442e Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 12 Mar 2013 14:11:23 -0700 Subject: [PATCH] decode_rfc1522 returns perl internal encoding instead of octets --- t/01_mime.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/01_mime.t b/t/01_mime.t index 8f1f2ca..dcd3b76 100644 --- a/t/01_mime.t +++ b/t/01_mime.t @@ -26,16 +26,16 @@ END # 1: test decode ok(Debbugs::MIME::decode_rfc1522(q(=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= )) eq - q(Dön Armstróng ),"decode_rfc1522 decodes and converts to UTF8 properly"); + decode_utf8(q(Dön Armstróng )),"decode_rfc1522 decodes and converts to UTF8 properly"); # 2: test encode -ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str)) eq encode_utf8($test_str), +ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522(encode_utf8($test_str))) eq $test_str, "encode_rfc1522 encodes strings that decode_rfc1522 can decode"); -ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str2)) eq encode_utf8($test_str2), +ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522(encode_utf8($test_str2))) eq $test_str2, "encode_rfc1522 encodes strings that decode_rfc1522 can decode"); -ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str3)) eq encode_utf8($test_str3), - "encode_rfc1522 properly handles parentesis and \""); +ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522(encode_utf8($test_str3))) eq $test_str3, + "encode_rfc1522 properly handles parenthesis and \""); # Make sure that create_mime_message has encoded headers and doesn't enclude any 8-bit characters -- 2.39.2