6 use RT::Test tests => 13;
8 my ( $baseurl, $m ) = RT::Test->started_ok;
9 ok $m->login, 'logged in as root';
10 my $root = RT::User->new(RT->SystemUser);
11 ok( $root->Load('root'), 'load root user' );
13 my $queue_name = 'test queue';
16 diag "Create a queue";
18 $m->follow_link( id => 'tools-config-queues-create');
20 # Test queue form validation
22 form_name => 'ModifyQueue',
27 $m->text_contains('Queue name is required');
29 form_name => 'ModifyQueue',
34 $m->text_contains("'0' is not a valid name");
36 form_name => 'ModifyQueue',
41 $m->text_contains("'1' is not a valid name");
43 form_name => 'ModifyQueue',
48 $m->content_contains('Queue created', 'created queue sucessfully' );
50 # Test validation on update
51 $m->form_name('ModifyQueue');
55 $m->click_button(value => 'Save Changes');
56 $m->content_contains('Illegal value for Name');
58 $m->form_name('ModifyQueue');
62 $m->click_button(value => 'Save Changes');
63 $m->content_contains('Illegal value for Name');
65 $m->form_name('ModifyQueue');
69 $m->click_button(value => 'Save Changes');
70 $m->content_contains('Illegal value for Name');
72 $queue_id = $m->form_name('ModifyQueue')->value('id');
73 ok $queue_id, "found id of the queue in the form, it's #$queue_id";