X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=t%2F13_utf8_mail.t;h=2491e14c3b1f67a3382369b0d8bf0e2f2a443184;hb=77c408ee20907046e136167f0bd61b3242e0dd46;hp=8ada76ab01b05a225987cd86c7e8947e357b23ab;hpb=2ca3d4b399934b4ee936f9a3f511b22fbcd48281;p=debbugs.git

diff --git a/t/13_utf8_mail.t b/t/13_utf8_mail.t
index 8ada76a..2491e14 100644
--- a/t/13_utf8_mail.t
+++ b/t/13_utf8_mail.t
@@ -6,6 +6,8 @@ use Test::More tests => 12;
 use warnings;
 use strict;
 
+use utf8;
+
 # Here, we're going to shoot messages through a set of things that can
 # happen.
 
@@ -127,7 +129,7 @@ ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: P
 # This is an eval because $ENV{DEBBUGS_CONFIG_FILE} isn't set at BEGIN{} time
 eval "use Debbugs::Status qw(read_bug writebug);";
 my $status = read_bug(bug=>1);
-ok($status->{subject} eq decode_utf8('ütff8 title encoding test'),'bug 1 retitled');
+ok($status->{subject} eq 'ütff8 title encoding test','bug 1 retitled');
 ok($status->{severity} eq 'wishlist','bug 1 wishlisted');
 ok(system('sh','-c','[ $(egrep "retitle.*encoding test" '.$spool_dir.'/db-h/01/1.log|grep -v "=C3=BCt=EF=AC=808"|wc -l) -eq 0 ]') == 0,
    'Control messages escaped properly');