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

(-)a/t/db_dependent/Log.t (-2 / +13 lines)
Lines 17-23 Link Here
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use Test::More tests => 5;
20
use Test::More tests => 6;
21
21
22
use C4::Context;
22
use C4::Context;
23
use C4::Log;
23
use C4::Log;
Lines 163-168 subtest 'GetLogs() respects interface filters' => sub { Link Here
163
    is( @{$logs}[0]->{ interface }, 'commandline', 'Interface correctly filtered (commandline)');
163
    is( @{$logs}[0]->{ interface }, 'commandline', 'Interface correctly filtered (commandline)');
164
};
164
};
165
165
166
subtest 'Check interface for logaction' => sub {
167
    plan tests => 2;
168
169
    C4::Context->interface('opac');
170
    logaction( 'NEWMODULE', 'ACTIONX', 0, '', 'my_interface');
171
    logaction( 'NEWMODULE', 'ACTIONX', 0, '' ); # default interface
172
    my $logs = GetLogs( undef, undef, undef, ['NEWMODULE'], undef, undef, undef, [ 'my_interface' ] );
173
    is( @$logs, 1, 'Found my_interface' );
174
    $logs = GetLogs( undef, undef, undef, ['NEWMODULE'], undef, undef, undef, [ 'opac' ] );
175
    is( @$logs, 1, 'Found opac' );
176
};
177
166
subtest 'GDPR logging' => sub {
178
subtest 'GDPR logging' => sub {
167
    plan tests => 1;
179
    plan tests => 1;
168
180
169
- 

Return to bug 23896