use strict;
use warnings;
-use RT::Test tests => 8;
-use File::Temp qw/tempfile/;
+use RT::Test tests => 9;
+use utf8;
+
use Encode;
+
use RT::Ticket;
-my ( $fh, $file ) = tempfile;
+my $file = File::Spec->catfile( RT::Test->temp_directory, 'template' );
+open my $fh, '>', $file or die $!;
my $template = <<EOF;
===Create-Ticket: ticket1
Queue: General
button => 'UpdateTickets',
# mimic what browsers do: they seems decoded $template
- fields => { string => decode( 'utf8', $template ), },
+ fields => { string => $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 );
+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->goto_ticket($ticket_id);
$m->content_contains( '这是正文',
'content is right in ticket display page' );