4 use RT::Test tests => undef;
5 my ($baseurl, $m) = RT::Test->started_ok;
6 ok $m->login, 'logged in as root';
8 diag "encoded attachment filename with parameter continuations";
10 my $mail = RT::Test->file_content(
11 RT::Test::get_relocatable_file(
12 'rfc2231-attachment-filename-continuations',
13 (File::Spec->updir(), 'data', 'emails')
17 my ( $status, $id ) = RT::Test->send_via_mailgate($mail);
18 is( $status >> 8, 0, "The mail gateway exited normally" );
19 ok( $id, "Created ticket" );
21 $m->get_ok("/Ticket/Display.html?id=$id");
22 $m->content_contains(Encode::decode("UTF-8","新しいテキスト ドキュメント.txt"), "found full filename");