Lines 18-24
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use DBI; |
20 |
use DBI; |
21 |
use Test::More tests => 33; |
21 |
use Test::More tests => 34; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
use YAML::XS; |
24 |
use YAML::XS; |
Lines 52-57
subtest 'yaml_preference() tests' => sub {
Link Here
|
52 |
$context->unmock( 'preference' ); |
52 |
$context->unmock( 'preference' ); |
53 |
}; |
53 |
}; |
54 |
|
54 |
|
|
|
55 |
subtest 'multivalue_preference() tests' => sub { |
56 |
|
57 |
plan tests => 3; |
58 |
|
59 |
t::lib::Mocks::mock_preference( 'MultiValuedSyspref', '' ); |
60 |
is_deeply( C4::Context->multivalue_preference('MultiValuedSyspref'), [] ); |
61 |
|
62 |
t::lib::Mocks::mock_preference( 'MultiValuedSyspref', 'some' ); |
63 |
is_deeply( C4::Context->multivalue_preference('MultiValuedSyspref'), ['some'] ); |
64 |
|
65 |
t::lib::Mocks::mock_preference( 'MultiValuedSyspref', 'some|more|values' ); |
66 |
is_deeply( C4::Context->multivalue_preference('MultiValuedSyspref'), ['some','more','values'] ); |
67 |
}; |
68 |
|
55 |
subtest 'needs_install() tests' => sub { |
69 |
subtest 'needs_install() tests' => sub { |
56 |
|
70 |
|
57 |
plan tests => 2; |
71 |
plan tests => 2; |
58 |
- |
|
|