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
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# Copyright (C) 2021 Znuny GmbH, https://znuny.org/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
# --
use strict;
use warnings;
use utf8;
use vars (qw($Self));
use Kernel::System::VariableCheck qw(:all);
# get helper object
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
# get needed objects
my $DynamicFieldObject = $Kernel::OM->Get('Kernel::System::DynamicField');
my $BackendObject = $Kernel::OM->Get('Kernel::System::DynamicField::Backend');
# define needed variable
my $RandomID = $HelperObject->GetRandomNumber();
# create a dynamic field
my $FieldID = $DynamicFieldObject->DynamicFieldAdd(
Name => "dynamicfieldtest$RandomID",
Label => 'a description',
FieldOrder => 9991,
FieldType => 'Text',
ObjectType => 'CustomerUser',
Config => {
DefaultValue => 'a value',
},
ValidID => 1,
UserID => 1,
);
# sanity check
$Self->True(
$FieldID,
"DynamicFieldAdd() successful for Field ID $FieldID",
);
my $DynamicFieldConfig = $DynamicFieldObject->DynamicFieldGet( ID => $FieldID );
# set dynamic field value via object name
my @ObjectNames;
for my $Count ( 1 .. 3 ) {
push @ObjectNames, $HelperObject->GetRandomID();
}
for my $ObjectName (@ObjectNames) {
my $Success = $BackendObject->ValueSet(
DynamicFieldConfig => $DynamicFieldConfig,
Value => "This is a sample text for ObjectIDsSearch.",
UserID => 1,
ObjectName => $ObjectName,
);
$Self->True(
$Success,
'Creation of dynamic field value via object name must succeed.'
);
}
# fetch object IDs for object names
my $ObjectIDByObjectName = $Kernel::OM->Get('Kernel::System::DynamicField')->ObjectMappingGet(
ObjectName => \@ObjectNames,
ObjectType => 'CustomerUser',
);
$Self->Is(
scalar keys %{$ObjectIDByObjectName},
scalar @ObjectNames,
'Number of found object IDs must match number of object names.',
);
# check that dynamic field search returns expected object IDs
my $DynamicFieldValues = $BackendObject->ValueSearch(
DynamicFieldConfig => $DynamicFieldConfig,
Search => 'sample text for ObjectIDsSearch',
);
my $ObjectIDs = [];
if ( IsArrayRefWithData($DynamicFieldValues) ) {
my %ObjectIDs = map { $_->{ObjectID} => 1 } @{$DynamicFieldValues};
$ObjectIDs = [ keys %ObjectIDs ];
}
$Self->True(
IsArrayRefWithData($ObjectIDs),
'ObjectIDsSearch must return a result.'
);
my $ObjectIDsMatch = ( scalar keys %{$ObjectIDByObjectName} == scalar @{$ObjectIDs} ) ? 1 : 0;
if ($ObjectIDsMatch) {
my %ObjectNameByObjectID = reverse %{$ObjectIDByObjectName};
OBJECTID:
for my $ObjectID ( @{$ObjectIDs} ) {
next OBJECTID if $ObjectNameByObjectID{$ObjectID};
$ObjectIDsMatch = 0;
last OBJECTID;
}
}
$Self->True(
$ObjectIDsMatch,
'ObjectIDsSearch must return expected object IDs.',
);
# cleanup is done by RestoreDatabase
1;
|
