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

(-)a/t/db_dependent/Languages.t (-2 / +13 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 9;
9
use Test::More tests => 11;
10
use List::Util qw(first);
11
use Data::Dumper;
10
12
11
BEGIN {
13
BEGIN {
12
    use_ok('C4::Languages');
14
    use_ok('C4::Languages');
Lines 38-41 C4::Context->set_preference('AdvancedSearchLanguages', 'ita|eng'); Link Here
38
$languages = C4::Languages::getLanguages('eng', 1);
40
$languages = C4::Languages::getLanguages('eng', 1);
39
is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
41
is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
40
42
43
my $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'');
44
my @currentcheck1 = map { $_->{current} } @$translatedlanguages1;
45
my $onlyzeros = first { $_ != 0 } @currentcheck1;
46
ok(! $onlyzeros, "Everything was zeros.\n");
47
48
my $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','');
49
my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
50
$onlyzeros = first { $_ != 0 } @currentcheck2;
51
ok($onlyzeros, "There is a $onlyzeros\n");
52
41
$dbh->rollback;
53
$dbh->rollback;
42
- 

Return to bug 7841