1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/env perl
use strict;
use warnings;
use RT::Test tests => 8;
use File::Temp qw/tempfile/;
use Encode;
use RT::Ticket;
my ( $fh, $file ) = tempfile;
my $template = <<EOF;
===Create-Ticket: ticket1
Queue: General
Subject: 标题
Status: new
Content:
这是正文
ENDOFCONTENT
EOF
print $fh $template;
close $fh;
my ( $url, $m ) = RT::Test->started_ok;
ok( $m->login, 'logged in' );
$m->get_ok( $url . '/Tools/Offline.html' );
$m->submit_form(
form_name => 'TicketUpdate',
fields => { Template => $file, },
button => 'Parse',
);
$m->content_contains( '这是正文', 'content is parsed right' );
$m->submit_form(
form_name => 'TicketUpdate',
button => 'UpdateTickets',
# mimic what browsers do: they seems decoded $template
fields => { string => decode( 'utf8', $template ), },
);
$m->content_like( qr/Ticket \d+ created/, 'found ticket created message' );
my ( $ticket_id ) = $m->content =~ /Ticket (\d+) created/;
my $ticket = RT::Ticket->new( $RT::SystemUser );
$ticket->Load( $ticket_id );
is( $ticket->Subject, '标题', 'subject in $ticket is right' );
$m->get_ok( $url . "/Ticket/Display.html?id=$ticket_id" );
$m->content_contains( '这是正文',
'content is right in ticket display page' );
|
