View | Details | Raw Unified | Return to bug 33718
Collapse All | Expand All

(-)a/t/lib/Mocks.pm (-9 / +12 lines)
Lines 39-58 my %configs; Link Here
39
39
40
Mock the configuration I<$config_entry> with the specified I<$value>.
40
Mock the configuration I<$config_entry> with the specified I<$value>.
41
41
42
NOTE: We are only mocking config entries here, so no entries from other
43
sections of koha-conf.xml. Bug 33718 fixed the section parameter of
44
mocked Koha::Config->get calls for other sections (not cached).
45
42
=cut
46
=cut
43
47
44
sub mock_config {
48
sub mock_config {
49
    my ( $config_entry, $value ) = @_;
45
    my $koha_config = Test::MockModule->new('Koha::Config');
50
    my $koha_config = Test::MockModule->new('Koha::Config');
46
    my ( $conf, $value ) = @_;
51
    $configs{$config_entry} = $value;
47
    $configs{$conf} = $value;
48
    $koha_config->mock('get', sub {
52
    $koha_config->mock('get', sub {
49
        my ( $self, $conf ) = @_;
53
        my ( $self, $key, $section ) = @_;
50
        if ( exists $configs{$conf} ) {
54
        $section ||= 'config';
51
            return $configs{$conf}
55
        if( $section eq 'config' && exists $configs{$key} ) {
52
        } else {
56
            return $configs{$key};
53
            my $method = $koha_config->original('get');
54
            return $method->($self, $conf);
55
        }
57
        }
58
        my $method = $koha_config->original('get');
59
        return $method->( $self, $key, $section );
56
    });
60
    });
57
}
61
}
58
62
59
- 

Return to bug 33718