/usr/share/otrs/scripts/test/Config.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 | # --
# 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 $EncodeObject = $Kernel::OM->Get('Kernel::System::Encode');
my $Helper = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
my $Value = 'Testvalue';
$ConfigObject->Set(
Key => 'ConfigTestkey',
Value => $Value,
);
my $Get = $ConfigObject->Get('ConfigTestkey');
$Self->Is(
$Get,
$Value,
'Set() and Get()',
);
my $Home = $ConfigObject->Get('Home');
$Self->True(
$Home,
'check for configuration setting "Home"',
);
my $ConfigChecksum = $ConfigObject->ConfigChecksum();
my $ConfigChecksum2 = $ConfigObject->ConfigChecksum();
$Self->True(
$ConfigChecksum,
'ConfigChecksum()',
);
$Self->Is(
$ConfigChecksum,
$ConfigChecksum2,
'ConfigChecksum()',
);
# loads the defaults values
$ConfigObject->LoadDefaults();
# obtains the default home path
my $DefaultHome = $ConfigObject->Get('Home');
# changes the home path
my $DummyPath = '/some/dummy/path/that/has/nothing/to/do/with/this';
$ConfigObject->Set(
Key => 'Home',
Value => $DummyPath,
);
# obtains the current home path
my $NewHome = $ConfigObject->Get('Home');
# makes sure that the current home path is the one we set
$Self->Is(
$NewHome,
$DummyPath,
'Test Set() with "Home" - both paths are equivalent.',
);
# makes sure that the default home path and the current are different
$Self->IsNot(
$NewHome,
$DefaultHome,
'Test Set() with "Home" - new path differs from the default.',
);
# loads the defaults values
$ConfigObject->LoadDefaults();
# obtains the default home path
$NewHome = $ConfigObject->Get('Home');
# checks that the default value obtained before is equivalent to the current
$Self->Is(
$NewHome,
$DefaultHome,
'Test LoadDefaults() - both paths are equivalent.',
);
# makes sure that the current path is different from the one we set before loading the defaults
$Self->IsNot(
$NewHome,
$DummyPath,
'Test LoadDefaults() with "Home" - new path differs from the dummy.',
);
$DefaultHome = $NewHome;
# loads the config values
$ConfigObject->Load();
# obtains the current home path
$NewHome = $ConfigObject->Get('Home');
# checks that the config value obtained before is equivalent to the current
$Self->Is(
$NewHome,
$Home,
'Test Load() - both paths are equivalent.',
);
# restore to the previous state is done by RestoreDatabase
1;
|