From 75ad4cf499ef7d1cf081cb1e18d28c8ccb632e60 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 25 Oct 2019 09:04:25 +0000 Subject: [PATCH] Bug 23896: Add unit tests Content-Type: text/plain; charset=utf-8 Test plan: Run t/db_dependent/Log.t Signed-off-by: Marcel de Rooy --- t/db_dependent/Log.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Log.t b/t/db_dependent/Log.t index f84fb14265..d3bb83750d 100644 --- a/t/db_dependent/Log.t +++ b/t/db_dependent/Log.t @@ -17,7 +17,7 @@ # with Koha; if not, see . use Modern::Perl; -use Test::More tests => 5; +use Test::More tests => 6; use C4::Context; use C4::Log; @@ -163,6 +163,18 @@ subtest 'GetLogs() respects interface filters' => sub { is( @{$logs}[0]->{ interface }, 'commandline', 'Interface correctly filtered (commandline)'); }; +subtest 'Check interface for logaction' => sub { + plan tests => 2; + + C4::Context->interface('opac'); + logaction( 'NEWMODULE', 'ACTIONX', 0, '', 'my_interface'); + logaction( 'NEWMODULE', 'ACTIONX', 0, '' ); # default interface + my $logs = GetLogs( undef, undef, undef, ['NEWMODULE'], undef, undef, undef, [ 'my_interface' ] ); + is( @$logs, 1, 'Found my_interface' ); + $logs = GetLogs( undef, undef, undef, ['NEWMODULE'], undef, undef, undef, [ 'opac' ] ); + is( @$logs, 1, 'Found opac' ); +}; + subtest 'GDPR logging' => sub { plan tests => 1; -- 2.11.0