/usr/share/otrs/scripts/test/Valid.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 | # --
# 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));
# get needed objects
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
my $ValidObject = $Kernel::OM->Get('Kernel::System::Valid');
# get helper object
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
my $Helper = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
# tests the method to make sure there is at least 2 registries: valid - invalid
my %ValidList = $ValidObject->ValidList();
my $ValidListLength = keys %ValidList;
$Self->True(
$ValidListLength > 1,
'Valid length.',
);
# tests ValidIDsGet. At least 1 valid registry
my @ValidIDsList = $ValidObject->ValidIDsGet();
$Self->True(
scalar @ValidIDsList >= 1,
'Valid registry exists.',
);
my $Counter;
for my $ValidID (@ValidIDsList) {
$Counter++;
$Self->True(
$ValidList{$ValidID},
"Test ValidIDsGet $Counter with array exists.",
);
}
# makes sure that all ValidIDs in the array are also in the hash containing all IDs
$Counter = 0;
for my $ValidIDKey ( sort keys %ValidList ) {
my $Number = scalar grep {m/^\Q$ValidIDKey\E$/} @ValidIDsList;
$Counter++;
if ( $ValidList{$ValidIDKey} eq 'valid' ) {
$Self->True(
$Number,
"Test ValidIDsGet $Counter with hash exists.",
);
}
else {
$Self->False(
$Number,
"Test ValidIDsGet $Counter with hash doesn't exists.",
);
}
# tests ValidLookup to verify the values of the hash
my $ValidLookupName = $ValidObject->ValidLookup( ValidID => $ValidIDKey );
$Self->Is(
$ValidLookupName,
$ValidList{$ValidIDKey},
"Test ValidLookup $Counter - both names are equivalent.",
);
$ValidLookupName = $ValidList{$ValidIDKey};
my $ValidLookupID = $ValidObject->ValidLookup( Valid => $ValidLookupName );
$Self->Is(
$ValidLookupID,
$ValidIDKey,
"Test ValidLookup $Counter - both IDs are equivalent.",
);
}
# cleanup cache is done by RestoreDatabase
1;
|