From 31ab1899c89be7bdafb7626b8f1fb3fff5ef5838 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 8 Jul 2012 09:10:53 -0700 Subject: [PATCH] test for escaped utf8 bug log --- t/13_utf8_mail.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/13_utf8_mail.t b/t/13_utf8_mail.t index 5885984..8ada76a 100644 --- a/t/13_utf8_mail.t +++ b/t/13_utf8_mail.t @@ -22,7 +22,7 @@ use File::Basename qw(dirname basename); use lib qw(t/lib); use DebbugsTest qw(:all); use Data::Dumper; -use Encode qw(decode encode); +use Encode qw(decode encode decode_utf8); # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here. $SIG{CHLD} = sub {}; @@ -127,8 +127,8 @@ 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 'ütff8 title encoding test','bug 1 retitled'); +ok($status->{subject} eq decode_utf8('ütff8 title encoding test'),'bug 1 retitled'); ok($status->{severity} eq 'wishlist','bug 1 wishlisted'); -ok(system('sh','-c','[ $(grep "encoding test" '.$spool_dir.'/db-h/01/1.log|grep -v "ütff8"|wc -l) -eq 0 ]') == 0, +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'); -- 2.39.2