3 # This Koha test module is a stub!
4 # Add more tests here!!!
9 use Test::More tests => 13;
10 use List::Util qw(first);
15 use_ok('C4::Languages');
18 my $dbh = C4::Context->dbh;
19 $dbh->{AutoCommit} = 0;
20 $dbh->{RaiseError} = 1;
22 isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return undef');
24 ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs');
26 is(C4::Languages::accept_language(),undef, 'test that accept_languages returns undef when nothing is entered');
28 ok(C4::Languages::getAllLanguages(), 'test get all languages');
30 C4::Context->set_preference('AdvancedSearchLanguages', '');
31 my $all_languages = C4::Languages::getAllLanguages('eng');
32 ok(@$all_languages > 10, 'retrieved a bunch of languges');
34 my $languages = C4::Languages::getLanguages('eng');
35 is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() return the same list');
37 $languages = C4::Languages::getLanguages('eng', 1);
38 is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() with filtering selected but AdvancedSearchLanguages blank return the same list');
40 C4::Context->set_preference('AdvancedSearchLanguages', 'ita|eng');
41 $languages = C4::Languages::getLanguages('eng', 1);
42 is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
44 my $translatedlanguages1;
45 warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'') }
47 'no warnings for calling getTranslatedLanguages';
48 my @currentcheck1 = map { $_->{current} } @$translatedlanguages1;
49 my $onlyzeros = first { $_ != 0 } @currentcheck1;
50 ok(! $onlyzeros, "Everything was zeros.\n");
52 my $translatedlanguages2;
53 warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','') }
55 'no warnings for calling getTranslatedLanguages';
56 my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
57 $onlyzeros = first { $_ != 0 } @currentcheck2;
58 ok($onlyzeros, "There is a $onlyzeros\n");