/usr/share/otrs/scripts/test/DynamicFieldObjectMapping.t is in otrs2 6.0.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # --
# Copyright (C) 2001-2018 OTRS AG, http://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
use strict;
use warnings;
use utf8;
use vars (qw($Self));
use Kernel::System::VariableCheck qw(:all);
my $DynamicFieldObject = $Kernel::OM->Get('Kernel::System::DynamicField');
# get helper object
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
my $Helper = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
# create some object IDs
my %ObjectIDByObjectName;
for my $Count ( 1 .. 5 ) {
my $ObjectName = $Helper->GetRandomID();
my $ObjectID = $DynamicFieldObject->ObjectMappingCreate(
ObjectName => $ObjectName,
ObjectType => 'CustomerUser',
);
$Self->True(
$ObjectID,
"Creation of object mapping must succeed for object name $ObjectName.",
);
$ObjectIDByObjectName{$ObjectName} = $ObjectID;
}
# check that created mappings can be retrieved with ObjectMappingGet()
my $RetrievedObjectIDByObjectName = $DynamicFieldObject->ObjectMappingGet(
ObjectName => [ keys %ObjectIDByObjectName ],
ObjectType => 'CustomerUser',
);
$Self->IsDeeply(
$RetrievedObjectIDByObjectName,
\%ObjectIDByObjectName,
'Retrieved object mappings must match expected ones.',
);
# add a mapping for a specific object name
my $ObjectName = $Helper->GetRandomID();
my $ObjectID = $DynamicFieldObject->ObjectMappingCreate(
ObjectName => $ObjectName,
ObjectType => 'CustomerUser',
);
$Self->True(
$ObjectID,
"Creation of object mapping must succeed for object name $ObjectName.",
);
# try to fetch an object ID for a non-existing object name
$RetrievedObjectIDByObjectName = $DynamicFieldObject->ObjectMappingGet(
ObjectName => $Helper->GetRandomID(),
ObjectType => 'CustomerUser',
);
$Self->False(
IsHashRefWithData($RetrievedObjectIDByObjectName) ? 1 : 0,
'Trying to fetch non-existing object mapping must fail.',
);
# check that created mappings can be retrieved with ObjectMappingGet()
my %ObjectNameByObjectID = reverse %ObjectIDByObjectName;
my $RetrievedObjectNameByObjectID = $DynamicFieldObject->ObjectMappingGet(
ObjectID => [ keys %ObjectNameByObjectID ],
ObjectType => 'CustomerUser',
);
$Self->IsDeeply(
$RetrievedObjectNameByObjectID,
\%ObjectNameByObjectID,
'Retrieved object mappings must match expected ones.',
);
# change object name
# use object name/ID from above
my $NewObjectName = $Helper->GetRandomID();
my $Success = $DynamicFieldObject->ObjectMappingNameChange(
OldObjectName => $ObjectName,
NewObjectName => $NewObjectName,
ObjectType => 'CustomerUser',
);
$Self->True(
$Success,
'Change of object name must succeed.'
);
# fetch object mapping for new name, ID must be the same as before
$RetrievedObjectIDByObjectName = $DynamicFieldObject->ObjectMappingGet(
ObjectName => $NewObjectName,
ObjectType => 'CustomerUser',
);
$Self->True(
defined $RetrievedObjectIDByObjectName->{$NewObjectName}
&& $RetrievedObjectIDByObjectName->{$NewObjectName} == $ObjectID,
'Object ID must be the same after changing its name.'
);
# fetching object mapping for old name must fail
$RetrievedObjectIDByObjectName = $DynamicFieldObject->ObjectMappingGet(
ObjectName => $ObjectName,
ObjectType => 'CustomerUser',
);
$Self->True(
!defined $RetrievedObjectIDByObjectName->{$NewObjectName},
'Fetching object mapping for old object name must fail.'
);
# cleanup is done by RestoreDatabase
1;
|