-#!/usr/bin/env perl
use strict;
use warnings;
-use RT::Test tests => 6;
-use File::Temp qw/tempfile/;
-use Encode;
+use RT::Test tests => 8;
use RT::Ticket;
my ( $url, $m ) = RT::Test->started_ok;
-$m->default_header( 'Accept-Language' => "zh-cn" );
+$m->default_header( 'Accept-Language' => "zh-tw" );
ok( $m->login, 'logged in' );
my $ticket_id;
fields => { string => $template, },
button => 'UpdateTickets',
);
- my $content = encode 'utf8', $m->content;
- ok( $content =~ qr/申请单 #(\d+) 成功新增于 'General' 表单/, 'message is shown right' );
+ my $content = Encode::encode("UTF-8", $m->content);
+ ok( $content =~ m/申請單 #(\d+) 成功新增於 'General' 表單/, 'message is shown right' );
$ticket_id = $1;
}
button => 'UpdateTickets',
);
- my $content = encode 'utf8', $m->content;
+ my $content = Encode::encode("UTF-8", $m->content);
ok(
$content =~
-qr/主é¢\98\s*ç\9a\84å\80¼ä»\8e\s*'test message'\s*æ\94¹ä¸º\s*'test message update'/,
+qr/主é¡\8c\s*ç\9a\84å\80¼å¾\9e\s*'test message'\s*æ\94¹ç\82º\s*'test message update'/,
'subject is updated'
);
}