Lines 1-6
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
# |
2 |
# |
3 |
# This Koha test module is a stub! |
3 |
# This Koha test module is a stub! |
4 |
# Add more tests here!!! |
4 |
# Add more tests here!!! |
5 |
use utf8; |
5 |
use utf8; |
6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
Lines 157-163
subtest 'getLanguages()' => sub {
Link Here
|
157 |
'subtag' => 'en', |
157 |
'subtag' => 'en', |
158 |
'iso639_2_code' => 'eng', |
158 |
'iso639_2_code' => 'eng', |
159 |
'description' => 'English', |
159 |
'description' => 'English', |
160 |
'language_description' => 'English (English)', |
160 |
'language_description' => 'English', |
161 |
'type' => 'language' |
161 |
'type' => 'language' |
162 |
}, |
162 |
}, |
163 |
{ |
163 |
{ |
Lines 188-194
subtest 'getLanguages()' => sub {
Link Here
|
188 |
); |
188 |
); |
189 |
|
189 |
|
190 |
# Test 2: Specific language without full translations |
190 |
# Test 2: Specific language without full translations |
191 |
$expected->[2]->{language_description} = "Español (Español)"; |
191 |
$expected->[2]->{language_description} = "Español"; |
192 |
$languages = getLanguages('es'); |
192 |
$languages = getLanguages('es'); |
193 |
cmp_deeply( |
193 |
cmp_deeply( |
194 |
$languages, $expected, |
194 |
$languages, $expected, |
Lines 197-203
subtest 'getLanguages()' => sub {
Link Here
|
197 |
|
197 |
|
198 |
# Test 3: Specific language with translations |
198 |
# Test 3: Specific language with translations |
199 |
$expected->[0]->{language_description} = "Anglais (English)"; |
199 |
$expected->[0]->{language_description} = "Anglais (English)"; |
200 |
$expected->[1]->{language_description} = "Français (Français)"; |
200 |
$expected->[1]->{language_description} = "Français"; |
201 |
$expected->[2]->{language_description} = "Espagnol (Español)"; |
201 |
$expected->[2]->{language_description} = "Espagnol (Español)"; |
202 |
$languages = getLanguages('fr'); |
202 |
$languages = getLanguages('fr'); |
203 |
cmp_deeply( |
203 |
cmp_deeply( |
204 |
- |
|
|