From f6ab68a65d92f4088bee34f1a45dd09ced4445ba Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 19 Mar 2012 10:46:33 -0700 Subject: [PATCH] test for utf8 retitling --- t/06_mail_handling.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t index 8285792..1cc842c 100644 --- a/t/06_mail_handling.t +++ b/t/06_mail_handling.t @@ -1,7 +1,7 @@ # -*- mode: cperl;-*- # $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $ -use Test::More tests => 114; +use Test::More tests => 117; use warnings; use strict; @@ -22,6 +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); # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here. $SIG{CHLD} = sub {}; @@ -299,6 +300,11 @@ my @control_commands = status_key => 'keywords', status_value => 'patch', }, + utf8_retitle => {command => 'retitle', + value => 'Thïs is a ütff8 title [♥♡☙☎]', + status_key => 'subject', + status_value => decode("utf8",'Thïs is a ütff8 title [♥♡☙☎]'), + }, ); # In order for the archive/unarchive to work, we have to munge the summary file slightly -- 2.39.2