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
|
# --
# 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));
# create language object which contains all translations
$Kernel::OM->ObjectParamAdd(
'Kernel::Language' => {
UserLanguage => 'de',
},
);
my $LanguageObject = $Kernel::OM->Get('Kernel::Language');
# test cases
my @Tests = (
{
OriginalString => '0', # test with zero
TranslationString => '', # test without a translation string
TranslationResult => '0',
},
{
OriginalString => 'OTRSLanguageUnitTest::Test1',
TranslationString => 'Test1',
TranslationResult => 'Test1',
Parameters => ['Hallo'], # test with not needed parameter
},
{
OriginalString => 'OTRSLanguageUnitTest::Test2',
TranslationString => 'Test2 [%s]',
TranslationResult => 'Test2 [Hallo]',
Parameters => ['Hallo'],
},
{
OriginalString => 'OTRSLanguageUnitTest::Test3',
TranslationString => 'Test3 [%s] (A=%s)',
TranslationResult => 'Test3 [Hallo] (A=A)',
Parameters => [ 'Hallo', 'A' ],
},
{
OriginalString => 'OTRSLanguageUnitTest::Test4',
TranslationString => 'Test4 [%s] (A=%s;B=%s)',
TranslationResult => 'Test4 [Hallo] (A=A;B=B)',
Parameters => [ 'Hallo', 'A', 'B' ],
},
{
OriginalString => 'OTRSLanguageUnitTest::Test5',
TranslationString => 'Test5 [%s] (A=%s;B=%s;C=%s)',
TranslationResult => 'Test5 [Hallo] (A=A;B=B;C=C)',
Parameters => [ 'Hallo', 'A', 'B', 'C' ],
},
{
OriginalString => 'OTRSLanguageUnitTest::Test6',
TranslationString => 'Test6 [%s] (A=%s;B=%s;C=%s;D=%s)',
TranslationResult => 'Test6 [Hallo] (A=A;B=B;C=C;D=D)',
Parameters => [ 'Hallo', 'A', 'B', 'C', 'D' ],
},
{
OriginalString => 'OTRSLanguageUnitTest::Test7 [% test %] {" special characters %s"}',
TranslationString => 'Test7 [% test %] {" special characters %s"}',
TranslationResult => 'Test7 [% test %] {" special characters test"}',
Parameters => ['test'],
},
);
for my $Test (@Tests) {
# add translation string to language object
$LanguageObject->{Translation}->{ $Test->{OriginalString} } = $Test->{TranslationString};
# get the translation
my $TranslatedString;
# test cases with parameters
if ( $Test->{Parameters} ) {
$TranslatedString = $LanguageObject->Translate(
$Test->{OriginalString},
@{ $Test->{Parameters} },
);
}
# test cases without a parameter
else {
$TranslatedString = $LanguageObject->Translate(
$Test->{OriginalString},
);
}
# compare with expected translation
$Self->Is(
$TranslatedString // '',
$Test->{TranslationResult},
'Translation of ' . $Test->{OriginalString},
);
}
1;
|
