Lines 6-12
Link Here
|
6 |
use strict; |
6 |
use strict; |
7 |
use warnings; |
7 |
use warnings; |
8 |
|
8 |
|
9 |
use Test::More tests => 16; |
9 |
use Test::More tests => 17; |
10 |
use List::Util qw(first); |
10 |
use List::Util qw(first); |
11 |
use Data::Dumper; |
11 |
use Data::Dumper; |
12 |
use Test::Warn; |
12 |
use Test::Warn; |
Lines 24-30
isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return und
Link Here
|
24 |
|
24 |
|
25 |
ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs'); |
25 |
ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs'); |
26 |
|
26 |
|
27 |
is(C4::Languages::accept_language(),undef, 'test that accept_languages returns undef when nothing is entered'); |
27 |
my $result; |
|
|
28 |
warning_is { $result = C4::Languages::accept_language(); } |
29 |
q{accept_language(x,y) called with no clientPreferences (x).}, |
30 |
'accept_language() generated expected warning'; |
31 |
is($result,undef, 'test that accept_languages returns undef when nothing is entered'); |
28 |
|
32 |
|
29 |
ok(C4::Languages::getAllLanguages(), 'test get all languages'); |
33 |
ok(C4::Languages::getAllLanguages(), 'test get all languages'); |
30 |
|
34 |
|
31 |
- |
|
|