|
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 |
- |
|
|