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 <hector.hecaxmmx@gmail.com>
No noisy output

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Mark Tompsett 2016-07-06 15:19:46 -04:00 committed by Kyle M Hall
parent 1aa9f7b92f
commit 042e8cf24b
1 changed files with 6 additions and 2 deletions

View File

@ -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');