1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#!/usr/bin/perl
use strict;
use warnings;
use RT::Test tests => 13;
my ( $baseurl, $m ) = RT::Test->started_ok;
ok $m->login, 'logged in as root';
my $root = RT::User->new(RT->SystemUser);
ok( $root->Load('root'), 'load root user' );
my $queue_name = 'test queue';
my $queue_id;
diag "Create a queue";
{
$m->follow_link( id => 'tools-config-queues-create');
# Test queue form validation
$m->submit_form(
form_name => 'ModifyQueue',
fields => {
Name => '',
},
);
$m->text_contains('Queue name is required');
$m->submit_form(
form_name => 'ModifyQueue',
fields => {
Name => '0',
},
);
$m->text_contains("'0' is not a valid name");
$m->submit_form(
form_name => 'ModifyQueue',
fields => {
Name => '1',
},
);
$m->text_contains("'1' is not a valid name");
$m->submit_form(
form_name => 'ModifyQueue',
fields => {
Name => $queue_name,
},
);
$m->content_contains('Queue created', 'created queue sucessfully' );
# Test validation on update
$m->form_name('ModifyQueue');
$m->set_fields(
Name => '',
);
$m->click_button(value => 'Save Changes');
$m->content_contains('Illegal value for Name');
$m->form_name('ModifyQueue');
$m->set_fields(
Name => '0',
);
$m->click_button(value => 'Save Changes');
$m->content_contains('Illegal value for Name');
$m->form_name('ModifyQueue');
$m->set_fields(
Name => '1',
);
$m->click_button(value => 'Save Changes');
$m->content_contains('Illegal value for Name');
$queue_id = $m->form_name('ModifyQueue')->value('id');
ok $queue_id, "found id of the queue in the form, it's #$queue_id";
}
|