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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
use strict;
use warnings;
use RT::Test tests => 'no_declare';
my ($base, $m) = RT::Test->started_ok;
my $cf_yaks = RT::Test->load_or_create_custom_field(
Name => 'Yaks',
Type => 'FreeformSingle',
Pattern => '(?#Digits)^\d+$',
Queue => 0,
LookupType => 'RT::Queue-RT::Ticket',
);
ok $cf_yaks && $cf_yaks->id, "Created CF with Pattern";
my $cf_guars = RT::Test->load_or_create_custom_field(
Name => 'Guars',
Type => 'FreeformSingle',
Pattern => '^\d+$',
Queue => 0,
LookupType => 'RT::Queue-RT::Ticket',
);
ok $cf_guars && $cf_guars->id, "Created CF with commentless Pattern";
my $cf_bison = RT::Test->load_or_create_custom_field(
Name => 'Bison',
Type => 'FreeformSingle',
Pattern => '(?#Digits)^\d+$',
Queue => 0,
LookupType => 'RT::Queue-RT::Ticket',
ValidationHint => 'Buffalo',
);
ok $cf_bison && $cf_bison->id, "Created CF with Pattern and ValidationHint";
my $cf_zebus = RT::Test->load_or_create_custom_field(
Name => 'Zebus',
Type => 'FreeformSingle',
Pattern => '^\d+$',
Queue => 0,
LookupType => 'RT::Queue-RT::Ticket',
ValidationHint => 'AKA Cebu',
);
ok $cf_zebus && $cf_zebus->id, "Created CF with commentless Pattern and ValidationHint";
my $cf_gnus = RT::Test->load_or_create_custom_field(
Name => 'Gnus',
Type => 'FreeformSingle',
Queue => 0,
LookupType => 'RT::Queue-RT::Ticket',
ValidationHint => 'No Gnus',
);
ok $cf_gnus && $cf_gnus->id, "Created CF with ValidationHint without Pattern";
my $ticket = RT::Test->create_ticket(
Queue => 1,
Subject => 'a test ticket',
);
ok $ticket && $ticket->id, "Created ticket";
$m->login;
for my $page ("/Ticket/Create.html?Queue=1", "/Ticket/Modify.html?id=".$ticket->id) {
diag $page;
$m->get_ok($page, "Fetched $page");
$m->content_contains("Yaks");
$m->content_contains("Input must match [Digits]");
$m->content_contains("Guars");
$m->content_contains("Input must match ^\\d+\$");
$m->content_contains("Bison");
$m->content_contains("Buffalo");
$m->content_contains("Zebus");
$m->content_contains("AKA Cebu");
$m->content_contains("Gnus");
$m->content_lacks("No Gnus");
$m->content_lacks("cfinvalidfield");
my $cfinput_yaks = RT::Interface::Web::GetCustomFieldInputName(
Object => ( $page =~ /Create/ ? RT::Ticket->new( RT->SystemUser ) : $ticket ),
CustomField => $cf_yaks,
);
my $cfinput_guars = RT::Interface::Web::GetCustomFieldInputName(
Object => ( $page =~ /Create/ ? RT::Ticket->new( RT->SystemUser ) : $ticket ),
CustomField => $cf_guars,
);
my $cfinput_bison = RT::Interface::Web::GetCustomFieldInputName(
Object => ( $page =~ /Create/ ? RT::Ticket->new( RT->SystemUser ) : $ticket ),
CustomField => $cf_bison,
);
my $cfinput_zebus = RT::Interface::Web::GetCustomFieldInputName(
Object => ( $page =~ /Create/ ? RT::Ticket->new( RT->SystemUser ) : $ticket ),
CustomField => $cf_zebus,
);
my $cfinput_gnus = RT::Interface::Web::GetCustomFieldInputName(
Object => ( $page =~ /Create/ ? RT::Ticket->new( RT->SystemUser ) : $ticket ),
CustomField => $cf_gnus,
);
$m->submit_form_ok({
with_fields => {
$cfinput_yaks => "too many",
"${cfinput_yaks}-Magic" => "1",
$cfinput_guars => "too many",
"${cfinput_guars}-Magic" => "1",
$cfinput_bison => "too many",
"${cfinput_bison}-Magic" => "1",
$cfinput_zebus => "too many",
"${cfinput_zebus}-Magic" => "1",
$cfinput_gnus => "too many",
"${cfinput_gnus}-Magic" => "1",
},
});
$m->content_contains("Input must match [Digits]");
$m->content_contains("Input must match ^\\d+\$");
$m->content_contains("Buffalo");
$m->content_contains("AKA Cebu");
$m->content_lacks("No Gnus");
$m->content_contains("cfinvalidfield");
$m->submit_form_ok({
with_fields => {
$cfinput_yaks => "42",
"${cfinput_yaks}-Magic" => "1",
$cfinput_guars => "42",
"${cfinput_guars}-Magic" => "1",
$cfinput_bison => "42",
"${cfinput_bison}-Magic" => "1",
$cfinput_zebus => "42",
"${cfinput_zebus}-Magic" => "1",
$cfinput_gnus => "too many",
"${cfinput_gnus}-Magic" => "1",
},
button => 'SubmitTicket',
});
if ($page =~ /Create/) {
$m->content_like(qr/Ticket \d+ created/, "Created ticket");
} else {
$m->content_contains("Yaks 42 added", "Updated ticket Yaks");
$m->content_contains("Guars 42 added", "Updated ticket Guars");
$m->content_contains("Bison 42 added", "Updated ticket Bison");
$m->content_contains("Zebus 42 added", "Updated ticket Zebu");
$m->content_contains("Gnus too many added", "Updated ticket Gnus");
$m->content_contains("Input must match [Digits]");
$m->content_contains("Input must match ^\\d+\$");
$m->content_contains("Buffalo");
$m->content_contains("AKA Cebu");
$m->content_lacks("No Gnus");
$m->content_lacks("cfinvalidfield");
}
}
diag "Quick ticket creation";
{
$m->get_ok("/");
$m->submit_form_ok({
with_fields => {
Subject => "test quick create",
QuickCreate => 1,
},
});
my $tickets = RT::Tickets->new(RT->SystemUser);
$tickets->FromSQL("Subject = 'test quick create'");
is $tickets->Count, 0, "No ticket created";
like $m->uri, qr/Ticket\/Create\.html/, "Redirected to the ticket create page";
$m->content_contains("Yaks: Input must match", "Found CF validation error Yaks");
$m->content_contains("Guars: Input must match", "Found CF validation error Guars");
$m->content_contains("Bison: Buffalo", "Found CF validation error Bison");
$m->content_contains("Zebus: AKA Cebu", "Found CF validation error Zebus");
$m->content_contains("test quick create", "Found prefilled Subject");
}
done_testing;
|
