From a7186e34a4f0d8579fdb69e858401c80de346cb4 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Wed, 6 Jul 2016 15:19:46 -0400 Subject: [PATCH] Bug 16866: Catch warning t/db_dependent/Languages.t TEST PLAN --------- 1) prove t/db_dependent/Languages.t -- noisy output 2) apply patch 3) prove t/db_dependent/Languages.t -- no noise 4) run koha qa test tools. Signed-off-by: Hector Castro No noisy output Signed-off-by: Jonathan Druart --- t/db_dependent/Languages.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Languages.t b/t/db_dependent/Languages.t index 0ea553a..8e8d372 100755 --- a/t/db_dependent/Languages.t +++ b/t/db_dependent/Languages.t @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More tests => 16; +use Test::More tests => 17; use List::Util qw(first); use Data::Dumper; use Test::Warn; @@ -24,7 +24,11 @@ isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return und 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'); +my $result; +warning_is { $result = C4::Languages::accept_language(); } + q{accept_language(x,y) called with no clientPreferences (x).}, + 'accept_language() generated expected warning'; +is($result,undef, 'test that accept_languages returns undef when nothing is entered'); ok(C4::Languages::getAllLanguages(), 'test get all languages'); -- 2.8.1