4 use RT::Test tests => 9;
7 my $file = File::Spec->catfile( RT::Test->temp_directory, 'template' );
8 open my $fh, '>', $file or die $!;
9 my $template = Encode::decode("UTF-8",<<EOF);
10 ===Create-Ticket: ticket1
19 print $fh Encode::encode("UTF-8",$template);
22 my ( $url, $m ) = RT::Test->started_ok;
23 ok( $m->login, 'logged in' );
25 $m->get_ok( $url . '/Tools/Offline.html' );
28 form_name => 'TicketUpdate',
29 fields => { Template => $file, },
33 $m->content_contains( Encode::decode("UTF-8",'这是正文'), 'content is parsed right' );
36 form_name => 'TicketUpdate',
37 button => 'UpdateTickets',
39 # mimic what browsers do: they seems decoded $template
40 fields => { string => $template },
43 $m->content_like( qr/Ticket \d+ created/, 'found ticket created message' );
44 my ( $ticket_id ) = $m->content =~ /Ticket (\d+) created/;
46 my $ticket = RT::Ticket->new( RT->SystemUser );
47 $ticket->Load( $ticket_id );
48 is( $ticket->Subject, Encode::decode("UTF-8",'标题'), 'subject in $ticket is right' );
50 $m->goto_ticket($ticket_id);
51 $m->content_contains( Encode::decode("UTF-8",'这是正文'),
52 'content is right in ticket display page' );