View | Details | Raw Unified | Return to bug 16675
Collapse All | Expand All

(-)a/t/Languages.t (-1 / +3 lines)
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
- 

Return to bug 16675