From 4f60c015aed5b1327677db6ed6f78b5f65107c9b Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 8 Jul 2012 08:59:06 -0700 Subject: [PATCH] explicitly decode_utf8 instead of use utf8 --- t/01_mime.t | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/t/01_mime.t b/t/01_mime.t index 5599b30..d103eb1 100644 --- a/t/01_mime.t +++ b/t/01_mime.t @@ -6,28 +6,27 @@ use Test::More tests => 6; use warnings; use strict; -use utf8; use Encode; use_ok('Debbugs::MIME'); # encode_headers testing -my $test_str = <<'END'; +my $test_str = decode_utf8(<<'END'); Döñ Ärḿßtrøñĝ END -my $test_str2 = <<'END'; +my $test_str2 = decode_utf8(<<'END'); Döñ Ärḿßtrøñĝ END -my $test_str3 =<<'END'; +my $test_str3 =decode_utf8(<<'END'); foo@bar.com (J fö"ø) 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 -- 2.39.2