|
Lines 5-11
Link Here
|
| 5 |
|
5 |
|
| 6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
| 7 |
|
7 |
|
| 8 |
use Test::More tests => 18; |
8 |
use Test::More tests => 21; |
| 9 |
use List::Util qw(first); |
9 |
use List::Util qw(first); |
| 10 |
use Data::Dumper; |
10 |
use Data::Dumper; |
| 11 |
use Test::Warn; |
11 |
use Test::Warn; |
|
Lines 24-29
isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return und
Link Here
|
| 24 |
|
24 |
|
| 25 |
ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs'); |
25 |
ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs'); |
| 26 |
|
26 |
|
|
|
27 |
|
| 27 |
my $result; |
28 |
my $result; |
| 28 |
warning_is { $result = C4::Languages::accept_language(); } |
29 |
warning_is { $result = C4::Languages::accept_language(); } |
| 29 |
q{accept_language(x,y) called with no clientPreferences (x).}, |
30 |
q{accept_language(x,y) called with no clientPreferences (x).}, |
|
Lines 62-67
my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
Link Here
|
| 62 |
$onlyzeros = first { $_ != 0 } @currentcheck2; |
63 |
$onlyzeros = first { $_ != 0 } @currentcheck2; |
| 63 |
ok($onlyzeros, "There is a $onlyzeros\n"); |
64 |
ok($onlyzeros, "There is a $onlyzeros\n"); |
| 64 |
|
65 |
|
|
|
66 |
# Bug 32775 |
| 67 |
my @languages = ('de-DE', 'en', 'en-NZ', 'mi-NZ'); |
| 68 |
my @enabledlanguages = ('de-DE', 'en-NZ', 'mi-NZ'); |
| 69 |
my $translatedlanguages3; |
| 70 |
$translatedlanguages3 = C4::Languages::_build_languages_arrayref(\@languages,'en',\@enabledlanguages); |
| 71 |
is( $translatedlanguages3->[0]->{rfc4646_subtag}, 'de-DE', '_build_languages_arrayref() returns first language of "de"' ); |
| 72 |
is( $translatedlanguages3->[1]->{rfc4646_subtag}, 'en', '_build_languages_arrayref() returns second language of "en-NZ"'); |
| 73 |
is( $translatedlanguages3->[2]->{rfc4646_subtag}, 'mi-NZ', '_build_languages_arrayref() returns third language of "mi-NZ"'); |
| 74 |
|
| 75 |
|
| 65 |
# Language Descriptions |
76 |
# Language Descriptions |
| 66 |
my $sth = $dbh->prepare("SELECT DISTINCT subtag,type,lang,description from language_descriptions;"); |
77 |
my $sth = $dbh->prepare("SELECT DISTINCT subtag,type,lang,description from language_descriptions;"); |
| 67 |
$sth->execute(); |
78 |
$sth->execute(); |
| 68 |
- |
|
|