From 5efa704a6ef44aca70afbcf0b784ca02c422257c Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sat, 7 Jul 2012 11:57:08 -0700 Subject: [PATCH] decode_rfc1522 now outputs perl internal format --- t/01_mime.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/01_mime.t b/t/01_mime.t index 5a1aa60..5599b30 100644 --- a/t/01_mime.t +++ b/t/01_mime.t @@ -27,15 +27,15 @@ END # 1: test decode ok(Debbugs::MIME::decode_rfc1522(q(=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= )) eq - encode_utf8(q(Dön Armstróng )),"decode_rfc1522 decodes and converts to UTF8 properly"); + 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($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($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), +ok(Debbugs::MIME::decode_rfc1522(Debbugs::MIME::encode_rfc1522($test_str3)) eq $test_str3, "encode_rfc1522 properly handles parentesis and \""); -- 2.39.2