|
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 => 31; |
21 |
use Test::More tests => 32; |
| 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 |
- |
|
|