use strict;
use warnings;
-use RT::Test tests => 18;
+use RT::Test tests => undef;
my $queue = RT::Test->load_or_create_queue( Name => 'General' );
Password => 'password',
);
+my $cf = RT::Test->load_or_create_custom_field( Name => 'test_cf', Queue => $queue->Name, Type => 'FreeformSingle' );
+my $cf_form_id = 'Object-RT::Ticket--CustomField-'.$cf->Id.'-Value';
+my $cf_test_value = "some string for test_cf $$";
+
my ( $baseurl, $m ) = RT::Test->started_ok;
ok(
RT::Test->set_rights(
{ Principal => $user, Right => [qw(SeeQueue CreateTicket)] },
+ { Principal => $user, Object => $queue, Right => [qw(SeeCustomField ModifyCustomField)] }
),
'set rights'
);
$m->get_ok( '/Ticket/Create.html?Queue=' . $queue->id,
'go to ticket create page' );
my $form = $m->form_name('TicketCreate');
- $m->submit_form( fields => { Subject => 'ticket foo' } );
+ $m->submit_form( fields => { Subject => 'ticket foo', $cf_form_id => $cf_test_value } );
my $ticket = RT::Test->last_ticket;
ok( $ticket->id, 'ticket is created' );
$m->content_lacks( "No permission to view ticket", 'no error msg' );
$m->title_is( "#$id: ticket foo", 'we can it' );
+ $m->content_contains($cf_test_value, "Custom Field was submitted and saved");
}
-# TODO more /Ticket/Display.html tests here
-
+undef $m;
+done_testing();