From 4af38b9908d497a1699bc3abd3f597858692f7b1 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 19 May 2014 16:40:23 +0000 Subject: [PATCH] Bug 7841: add a direct regression test This patch adds a direct regression test for verifying that no warnings are generated when getTranslatedLanguages() is called without a defined current language, as might happen during installation. Signed-off-by: Galen Charlton --- t/db_dependent/Languages.t | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Languages.t b/t/db_dependent/Languages.t index 474987febf..ca4413e344 100755 --- a/t/db_dependent/Languages.t +++ b/t/db_dependent/Languages.t @@ -6,9 +6,10 @@ use strict; use warnings; -use Test::More tests => 11; +use Test::More tests => 13; use List::Util qw(first); use Data::Dumper; +use Test::Warn; BEGIN { use_ok('C4::Languages'); @@ -40,12 +41,18 @@ 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 $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 = C4::Languages::getTranslatedLanguages('opac','prog','en',''); +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"); -- 2.39.2