-#!/usr/bin/perl
use strict;
use warnings;
-use RT::Test tests => 28;
+use RT::Test tests => 32;
use Encode;
my ( $baseurl, $m ) = RT::Test->started_ok;
ok $m->login, 'logged in as root';
-$RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
-
use utf8;
use File::Spec;
{
$m->get_ok( $baseurl . '/Ticket/Create.html?Queue=1' );
- $m->form_number(3);
+ $m->form_name('TicketModify');
$m->submit_form(
form_number => 3,
fields => { Subject => '标题', Content => '测试' },
{
my $file =
- File::Spec->catfile( File::Spec->tmpdir, 'rt_attachemnt_abcde.txt' );
+ File::Spec->catfile( RT::Test->temp_directory, encode_utf8 '附件.txt' );
open( my $fh, '>', $file ) or die $!;
binmode $fh, ':utf8';
print $fh '附件';
$m->get_ok( $baseurl . '/Ticket/Create.html?Queue=1' );
- $m->form_number(3);
+ $m->form_name('TicketModify');
$m->submit_form(
form_number => 3,
fields => { Subject => '标题', Content => '测试', Attach => $file },
);
$m->content_like( qr/Ticket \d+ created/i, 'created the ticket' );
+ $m->content_contains( '附件.txt', 'attached filename' );
+ $m->content_lacks( encode_utf8 '附件.txt', 'no double encoded attached filename' );
$m->follow_link_ok( { text => 'with headers' },
'-> /Ticket/Attachment/WithHeaders/...' );
$m->back;
$m->back;
- $m->follow_link_ok( { text_regex => qr/by Enoch Root/ },
+ $m->follow_link_ok( { text => 'Download 附件.txt' },
'-> /Ticket/Attachment/...' );
$m->content_contains( '附件', 'has content 附件' );
unlink $file;
}
-