@@ -, +, @@ --------- -- All the tests should pass, including the last two which a) check that when undef is used no language is marked as current. b) check that when 'en' is used there is a language marked as current. --- t/db_dependent/Languages.t | 14 +++++++++++++- 1 files changed, 13 insertions(+), 1 deletions(-) --- a/t/db_dependent/Languages.t +++ a/t/db_dependent/Languages.t @@ -6,7 +6,9 @@ use strict; use warnings; -use Test::More tests => 9; +use Test::More tests => 11; +use List::Util qw(first); +use Data::Dumper; BEGIN { use_ok('C4::Languages'); @@ -38,4 +40,14 @@ C4::Context->set_preference('AdvancedSearchLanguages', 'ita|eng'); $languages = C4::Languages::getLanguages('eng', 1); is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works'); +my $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,''); +my @currentcheck1 = map { $_->{current} } @$translatedlanguages1; +my $onlyzeros = first { $_ != 0 } @currentcheck1; +ok(! $onlyzeros, "Everything was zeros.\n"); + +my $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en',''); +my @currentcheck2 = map { $_->{current} } @$translatedlanguages2; +$onlyzeros = first { $_ != 0 } @currentcheck2; +ok($onlyzeros, "There is a $onlyzeros\n"); + $dbh->rollback; --