Lines 24-34
sub mock_config {
Link Here
|
24 |
|
24 |
|
25 |
my %preferences; |
25 |
my %preferences; |
26 |
sub mock_preference { |
26 |
sub mock_preference { |
27 |
my $context = new Test::MockModule('C4::Context'); |
|
|
28 |
my ( $pref, $value ) = @_; |
27 |
my ( $pref, $value ) = @_; |
29 |
$preferences{$pref} = $value; |
28 |
|
|
|
29 |
$preferences{lc($pref)} = $value; |
30 |
|
31 |
my $context = new Test::MockModule('C4::Context'); |
30 |
$context->mock('preference', sub { |
32 |
$context->mock('preference', sub { |
31 |
my ( $self, $pref ) = @_; |
33 |
my ( $self, $pref ) = @_; |
|
|
34 |
$pref = lc($pref); |
32 |
if ( exists $preferences{$pref} ) { |
35 |
if ( exists $preferences{$pref} ) { |
33 |
return $preferences{$pref} |
36 |
return $preferences{$pref} |
34 |
} else { |
37 |
} else { |
35 |
- |
|
|