Lines 21-26
use Modern::Perl;
Link Here
|
21 |
use Test::More tests => 4; |
21 |
use Test::More tests => 4; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
|
|
24 |
use Koha::Cache::Memory::Lite; |
24 |
|
25 |
|
25 |
BEGIN { |
26 |
BEGIN { |
26 |
use_ok('C4::Languages'); |
27 |
use_ok('C4::Languages'); |
Lines 51-58
my $query = CGI->new();
Link Here
|
51 |
@languages = ('de-DE', 'fr-FR'); |
52 |
@languages = ('de-DE', 'fr-FR'); |
52 |
is(C4::Languages::getlanguage($query), 'de-DE', 'default to first language specified in syspref (bug 10560)'); |
53 |
is(C4::Languages::getlanguage($query), 'de-DE', 'default to first language specified in syspref (bug 10560)'); |
53 |
|
54 |
|
|
|
55 |
Koha::Cache::Memory::Lite->get_instance()->clear_from_cache('getlanguage'); |
54 |
@languages = (); |
56 |
@languages = (); |
55 |
is(C4::Languages::getlanguage($query), 'en', 'default to English if no language specified in syspref (bug 10560)'); |
57 |
is(C4::Languages::getlanguage($query), 'en', 'default to English if no language specified in syspref (bug 10560)'); |
56 |
|
58 |
|
|
|
59 |
Koha::Cache::Memory::Lite->get_instance()->clear_from_cache('getlanguage'); |
57 |
$return_undef = 1; |
60 |
$return_undef = 1; |
58 |
is(C4::Languages::getlanguage($query), 'en', 'default to English if no database'); |
61 |
is(C4::Languages::getlanguage($query), 'en', 'default to English if no database'); |
59 |
- |
|
|