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
|
use strict;
use warnings;
use lib 't/lib';
use RT::Test::REST2 tests => undef;
my $mech = RT::Test::REST2->mech;
my $auth = RT::Test::REST2->authorization_header;
my $rest_base_path = '/REST/2.0';
my $user = RT::Test::REST2->user;
$user->PrincipalObj->GrantRight( Right => 'SeeCustomField' );
my $queue = RT::Queue->new(RT->SystemUser);
$queue->Load('General');
my $queue_id = $queue->id;
my $attached_single_cf = RT::CustomField->new(RT->SystemUser);
$attached_single_cf->Create(LookupType => 'RT::Queue-RT::Ticket', Name => 'Freeform CF', Type => 'Freeform', MaxValues => 1, Queue => 'General');
my $attached_single_cf_id = $attached_single_cf->id;
my $attached_multiple_cf = RT::CustomField->new(RT->SystemUser);
$attached_multiple_cf->Create(LookupType => 'RT::Queue-RT::Ticket', Name => 'Freeform CF', Type => 'Freeform', MaxValues => 0, Queue => 'General');
my $attached_multiple_cf_id = $attached_multiple_cf->id;
my $detached_cf = RT::CustomField->new(RT->SystemUser);
$detached_cf->Create(LookupType => 'RT::Queue-RT::Ticket', Name => 'Freeform CF', Type => 'Freeform', MaxValues => 1);
my $detached_cf_id = $detached_cf->id;
my $queue_cf = RT::CustomField->new(RT->SystemUser);
$queue_cf->Create(LookupType => 'RT::Queue', Name => 'Freeform CF', Type => 'Freeform', MaxValues => 1);
$queue_cf->AddToObject($queue);
my $queue_cf_id = $queue_cf->id;
# All tickets customfields
{
my $res = $mech->post_json("$rest_base_path/customfields",
[{field => 'LookupType', value => 'RT::Queue-RT::Ticket'}],
'Authorization' => $auth,
);
is($res->code, 200);
my $content = $mech->json_response;
is($content->{total}, 3);
is($content->{count}, 3);
is(scalar @{$content->{items}}, 3);
my @ids = sort map {$_->{id}} @{$content->{items}};
is_deeply(\@ids, [$attached_single_cf_id, $attached_multiple_cf_id, $detached_cf_id]);
}
# All tickets single customfields attached to queue 'General'
{
my $res = $mech->post_json("$rest_base_path/queue/$queue_id/customfields",
[
{field => 'LookupType', value => 'RT::Queue-RT::Ticket'},
{field => 'MaxValues', value => 1},
],
'Authorization' => $auth,
);
is($res->code, 200);
my $content = $mech->json_response;
is($content->{total}, 1);
is($content->{count}, 1);
is(scalar @{$content->{items}}, 1);
is($content->{items}->[0]->{id}, $attached_single_cf_id);
}
# All single customfields attached to queue 'General'
{
my $res = $mech->post_json("$rest_base_path/queue/$queue_id/customfields",
[
{field => 'MaxValues', value => 1},
],
'Authorization' => $auth,
);
is($res->code, 200);
my $content = $mech->json_response;
is($content->{total}, 2);
is($content->{count}, 2);
is(scalar @{$content->{items}}, 2);
my @ids = sort map {$_->{id}} @{$content->{items}};
is_deeply(\@ids, [$attached_single_cf_id, $queue_cf_id]);
}
done_testing;
|
