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
|
# --
# 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.
# --
## no critic (Modules::RequireExplicitPackage)
use strict;
use warnings;
use utf8;
use vars (qw($Self));
use Kernel::System::VariableCheck qw(:all);
# Get needed objects
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
# Get system home directory.
my $Home = $Kernel::OM->Get('Kernel::Config')->Get('Home');
# Read Sample.xml
my $XMLImputRef = $Kernel::OM->Get('Kernel::System::Main')->FileRead(
Location => "$Home/scripts/test/sample/SysConfig/XML/Sample.xml",
Mode => 'utf8',
);
$Self->IsNot(
$XMLImputRef,
undef,
"FileRead() for Sample.xml",
);
my $SysConfigXMLObject = $Kernel::OM->Get('Kernel::System::SysConfig::XML');
my $SysConfigObject = $Kernel::OM->Get('Kernel::System::SysConfig');
my @DefaultSettingAddParams = $SysConfigXMLObject->SettingListParse(
XMLInput => ${$XMLImputRef},
XMLFilename => 'Sample.xml',
);
for my $Setting ( sort @DefaultSettingAddParams ) {
my $SettingName = $Setting->{XMLContentParsed}->{Name};
$Self->Is(
ref $Setting,
'HASH',
"SettingListParse() for $SettingName structure"
);
$Self->IsNot(
scalar keys %{$Setting},
0,
"SettingListParse() for $SettingName cardinality"
);
# Extract translations for each parsed setting (results are saved in SysConfig object $Self)
$SysConfigObject->_ConfigurationTranslatableStrings( Data => $Setting );
}
my %ExpectedResults = (
'All tickets with reminder' => 1,
'Check UTF-8.' => 1,
'Defines the next state of a ticket.' => 1,
'Event module that updates customer user object name for dynamic fields.' => 1,
'Left' => 1,
'Loader module registration for the agent interface.' => 1,
'Parameters with UTF8 ∂ç≈ßčćđšžå' => 1,
'Reminder Tickets' => 1,
'Restores a ticket from the archive.' => 1,
'Right' => 1,
'Sets the default body text for notes.' => 1,
'Shows a list of all the involved agents.' => 1,
'Specifies the available note types.' => 1,
'The format of the subject.' => 1,
'The identifier for a ticket.' => 1,
);
# Get actual results from SysConfig object
my $Result = $SysConfigObject->{ConfigurationTranslatableStrings};
$Self->Is(
ref $Result,
'HASH',
"\$SysConfigObject->{ConfigurationTranslatableStrings} structure",
);
$Self->IsNot(
scalar keys %{$Result},
0,
"\$SysConfigObject->{ConfigurationTranslatableStrings} cardinality",
);
# Compare actual results with expected ones
$Self->IsDeeply(
$Result,
\%ExpectedResults,
"\$SysConfigObject->{ConfigurationTranslatableStrings} result",
);
# Check full function
my @TranslatableStrings = $SysConfigObject->ConfigurationTranslatableStrings();
$Self->IsNot(
scalar @TranslatableStrings,
0,
"ConfigurationTranslatableStrings() cardinality (Full)",
);
1;
|
