4 use RT::Test tests => undef;
6 my $ticket = RT::Test->create_ticket(
7 Subject => 'test ticket basics',
11 my ( $url, $m ) = RT::Test->started_ok;
12 ok( $m->login, 'logged in' );
14 my $root = RT::Test->load_or_create_user( Name => 'root' );
16 # Failing test where the time units are not preserved when you
17 # click 'Add more files' on Display
19 {Subject => "hello rt"},
26 "Time$_-TimeUnits" => 'hours',
27 }, qw/Estimated Worked Left/
32 "Time$_-TimeUnits" => 'hours',
33 }, qw/Estimated Worked Left/
36 {InitialPriority => "10"},
37 {FinalPriority => "10"},
40 for my $try (@form_tries) {
41 $m->goto_create_ticket(1);
42 $m->form_name('TicketCreate');
43 $m->set_fields(%$try);
44 $m->click('AddMoreAttach');
45 $m->form_name('TicketCreate');
46 for my $field (keys %$try) {
49 defined($try->{$field}) ? $try->{$field} : '',
50 "field $field is the same after the form was submitted"
55 # Test for time unit preservation in Jumbo
56 for my $try (@form_tries) {
57 my $jumbo_ticket = RT::Test->create_ticket(
58 Subject => 'test jumbo ticket basics',
62 local($try->{Priority}) = delete local($try->{InitialPriority})
63 if exists $try->{InitialPriority};
65 $m->get( $url . "/Ticket/ModifyAll.html?id=" . $jumbo_ticket->id );
66 $m->form_name('TicketModifyAll');
67 $m->set_fields(%$try);
68 $m->click('AddMoreAttach');
69 $m->form_name('TicketModifyAll');
70 for my $field (keys %$try) {
73 defined($try->{$field}) ? $try->{$field} : '',
74 "field $field is the same after the Jumbo form was submitted"
79 my $cf = RT::Test->load_or_create_custom_field(
82 Pattern => '.', # mandatory
86 # More time unit testing by a failing CF validation
87 $m->get_ok($url.'/Admin/CustomFields/Objects.html?id='.$cf->id);
88 $m->form_with_fields('UpdateObjs');
89 $m->tick('AddCustomField-'.$cf->id => '0'); # Make CF global
90 $m->click('UpdateObjs');
91 $m->text_contains('Object created', 'CF applied globally');
93 # Test for preservation when a ticket is submitted and CF validation fails
94 for my $try (@form_tries) {
95 $m->goto_create_ticket(1);
96 $m->form_name('TicketCreate');
97 $m->set_fields(%$try);
99 $m->form_name('TicketCreate');
100 for my $field (keys %$try) {
103 defined($try->{$field}) ? $try->{$field} : '',
104 "field $field is the same after the form was submitted"