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
|
use strict;
use warnings;
use RT::Test tests => undef;
my @groupings = qw/Basics Dates People Links More/;
RT->Config->Set( 'CustomFieldGroupings',
'RT::Ticket' => {
'General' => {
map { +($_ => ["Test$_"]) } @groupings,
},
'Default' => {
map { +($_ => ["Test$_"]) } grep { $_ ne 'More' } @groupings,
},
},
);
RT->Config->PostLoadCheck;
my $general = RT::Test->load_or_create_queue( Name => 'General' );
my $foo = RT::Test->load_or_create_queue( Name => 'Foo' );
my ( $baseurl, $m ) = RT::Test->started_ok;
ok $m->login, 'logged in as root';
my %CF;
for my $grouping (@groupings) {
my $name = "Test$grouping";
my $cf = RT::CustomField->new( RT->SystemUser );
my ($id, $msg) = $cf->Create(
Name => $name,
Queue => '0',
Description => 'A Testing custom field',
Type => 'FreeformSingle',
Pattern => '^(?!bad value).*$',
);
ok $id, "custom field '$name' correctly created";
$CF{$grouping} = $id;
}
for my $queue ( $general, $foo ) {
my %location = (
Basics => ".ticket-info-basics",
Dates => ".ticket-info-dates",
People => "#ticket-create-message",
Links => ".ticket-info-links",
More => ".ticket-info-cfs",
);
{
diag "testing Create";
$m->goto_create_ticket($queue);
my $prefix = 'Object-RT::Ticket--CustomField:';
my $dom = $m->dom;
$m->form_name('TicketCreate');
$m->field( "Subject", "CF grouping test" );
for my $grouping (@groupings) {
my $input_name = $prefix . "$grouping-$CF{$grouping}-Value";
if ( $grouping eq 'More' && $queue == $foo ) {
$input_name =~ s!:More!!;
}
is $dom->find(qq{input[name="$input_name"]})->size, 1, "only one CF input on the page";
ok $dom->at(qq{$location{$grouping} input[name="$input_name"]}), "CF is in the right place";
$m->field( $input_name, "Test" . $grouping . "Value" );
}
$m->submit_form( button => 'SubmitTicket' );
}
my $id = $m->get_ticket_id;
{
diag "testing Display";
ok $id, "created a ticket";
my $dom = $m->dom;
$location{People} = ".ticket-info-people";
foreach my $grouping (@groupings) {
my $row_id = "CF-$CF{$grouping}-ShowRow";
is $dom->find(qq{#$row_id})->size, 1, "CF on the page";
like $dom->at(qq{#$row_id})->all_text, qr/Test$grouping:\s*Test${grouping}Value/, "value is set";
ok $dom->at(qq{$location{$grouping} #$row_id}), "CF is in the right place";
}
if ( $queue == $general ) {
ok( !$m->find_link( url_regex => qr/#ticket-info-cfs$/, text => 'Custom Fields' ),
'no "Custom Fields" widget' );
ok( $m->find_link( url_regex => qr/#ticket-info-cfs-More$/, text => 'More' ), 'has "More" widget' );
}
else {
ok( $m->find_link( url_regex => qr/#ticket-info-cfs$/, text => 'Custom Fields' ),
'has "Custom Fields" widget' );
ok( !$m->find_link( url_regex => qr/#ticket-info-cfs-More$/, text => 'More' ), 'no "More" widget' );
}
}
{
$m->get_ok( '/Admin/Queues/DefaultValues.html?id=' . $queue->Id, 'default values page' );
my $prefix = 'Object-RT::Ticket--CustomField:';
my $dom = $m->dom;
$m->form_name('ModifyDefaultValues');
for my $grouping (@groupings) {
my $input_name = $prefix . "$grouping-$CF{$grouping}-Value";
if ( $grouping eq 'More' && $queue == $foo ) {
$input_name =~ s!:More!!;
}
is $dom->find(qq{input[name="$input_name"]})->size, 1, "only one CF input on the page";
ok $dom->at(qq{$location{$grouping} input[name="$input_name"]}), "CF is in the right place";
$m->field( $input_name, "Test" . $grouping . "Value" );
}
$m->submit_form_ok( { button => 'Update' } );
$m->text_contains('Default values changed from (no value) to Test' . $_ . 'Value') for @groupings;
}
}
done_testing;
|
