Bug 13869: Wrong capitalization of 'Save Report' in guided reports

[koha.git] / t / db_dependent / Languages.t

diff --git a/t/db_dependent/Languages.t b/t/db_dependent/Languages.t
index f3bac39..ca4413e 100755 (executable)
--- a/t/db_dependent/Languages.t
+++ b/t/db_dependent/Languages.t
@@ -6,12 +6,19 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More tests => 13;
+use List::Util qw(first);
+use Data::Dumper;
+use Test::Warn;
 
 BEGIN {
-        use_ok('C4::Languages');
+    use_ok('C4::Languages');
 }
 
+my $dbh = C4::Context->dbh;
+$dbh->{AutoCommit} = 0;
+$dbh->{RaiseError} = 1;
+
 isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return undef');
 
 ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs');
@@ -19,3 +26,35 @@ ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs');
 is(C4::Languages::accept_language(),undef, 'test that accept_languages returns undef when nothing is entered');
 
 ok(C4::Languages::getAllLanguages(), 'test get all languages');
+
+C4::Context->set_preference('AdvancedSearchLanguages', '');
+my $all_languages = C4::Languages::getAllLanguages('eng');
+ok(@$all_languages > 10, 'retrieved a bunch of languges');
+
+my $languages = C4::Languages::getLanguages('eng');
+is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() return the same list');
+
+$languages = C4::Languages::getLanguages('eng', 1);
+is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() with filtering selected but AdvancedSearchLanguages blank return the same list');
+
+C4::Context->set_preference('AdvancedSearchLanguages', 'ita|eng');
+$languages = C4::Languages::getLanguages('eng', 1);
+is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
+
+my $translatedlanguages1;
+warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'') }
+             [],
+             'no warnings for calling getTranslatedLanguages';
+my @currentcheck1 = map { $_->{current} } @$translatedlanguages1;
+my $onlyzeros = first { $_ != 0 } @currentcheck1;
+ok(! $onlyzeros, "Everything was zeros.\n");
+
+my $translatedlanguages2;
+warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','') }
+             [],
+             'no warnings for calling getTranslatedLanguages';
+my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
+$onlyzeros = first { $_ != 0 } @currentcheck2;
+ok($onlyzeros, "There is a $onlyzeros\n");
+
+$dbh->rollback;