diff options
Diffstat (limited to 'rt/t/web/attachment_truncation.t')
-rw-r--r-- | rt/t/web/attachment_truncation.t | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/rt/t/web/attachment_truncation.t b/rt/t/web/attachment_truncation.t new file mode 100644 index 000000000..b60f29e90 --- /dev/null +++ b/rt/t/web/attachment_truncation.t @@ -0,0 +1,53 @@ +use warnings; +use strict; + +use RT::Test tests => undef; +use File::Temp 'tempfile'; + +my $content = 'a' x 1000 . 'b' x 10; +my ( $fh, $path ) = tempfile( UNLINK => 1, SUFFIX => '.txt' ); +print $fh $content; +close $fh; +my $name = ( File::Spec->splitpath($path) )[2]; + +RT->Config->Set( 'WebSessionClass', "Apache::Session::File"); +RT->Config->Set( 'MaxAttachmentSize', 1000 ); +RT->Config->Set( 'TruncateLongAttachments', '1' ); + +my $queue = RT::Test->load_or_create_queue( Name => 'General' ); +ok( $queue->id, "Loaded General queue" ); + +my $cf = RT::CustomField->new( RT->SystemUser ); +ok( + $cf->Create( + Name => 'test truncation', + Queue => '0', + Type => 'FreeformSingle', + ), +); +my $cfid = $cf->id; + +my ( $baseurl, $m ) = RT::Test->started_ok; +ok $m->login, 'logged in'; + +$m->get_ok( $baseurl . '/Ticket/Create.html?Queue=' . $queue->id ); +$m->content_contains( "Create a new ticket", 'ticket create page' ); + +$m->form_name('TicketCreate'); +$m->field( 'Subject', 'Attachments test' ); +$m->field( 'Attach', $path ); +$m->field( 'Content', 'Some content' ); +my $cf_content = 'cf' . 'a' x 998 . 'cfb'; +$m->field( "Object-RT::Ticket--CustomField-$cfid-Value", $cf_content ); +$m->submit; +is( $m->status, 200, "request successful" ); + +$m->content_contains( "File '$name' truncated because its size (1010 bytes) exceeded configured maximum size setting (1000 bytes).", 'truncated message' ); +$m->content_contains( 'cf' . 'a' x 998, 'has the first 1000 cf chars' ); +$m->content_lacks( 'aaacfb', 'lacks cf chars after that' ); +$m->follow_link_ok( { text => "Download $name" } ); +$m->content_contains( 'a' x 1000, 'has the first 1000 chars' ); +$m->content_lacks( 'b', 'lacks chars after that' ); + +undef $m; +done_testing; |