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

(-)a/t/db_dependent/Log.t (-8 / +4 lines)
Lines 8-13 use Modern::Perl; Link Here
8
use Test::More tests => 10;
8
use Test::More tests => 10;
9
9
10
use C4::Context;
10
use C4::Context;
11
use Koha::Database;
11
use Koha::DateUtils;
12
use Koha::DateUtils;
12
13
13
use t::lib::Mocks qw/mock_preference/; # to mock CronjobLog
14
use t::lib::Mocks qw/mock_preference/; # to mock CronjobLog
Lines 20-28 BEGIN { Link Here
20
my $success;
21
my $success;
21
22
22
# Make sure we can rollback.
23
# Make sure we can rollback.
24
my $schema  = Koha::Database->new->schema;
25
$schema->storage->txn_begin;
23
my $dbh = C4::Context->dbh;
26
my $dbh = C4::Context->dbh;
24
$dbh->{AutoCommit} = 0;
25
$dbh->{RaiseError} = 1;
26
27
27
eval {
28
eval {
28
    # FIXME: are we sure there is an member number 1?
29
    # FIXME: are we sure there is an member number 1?
Lines 121-128 subtest 'logaction(): interface is correctly logged' => sub { Link Here
121
    logaction( "MEMBERS", "MODIFY", 1, 'test info', 'sip');
122
    logaction( "MEMBERS", "MODIFY", 1, 'test info', 'sip');
122
    $logs = GetLogs();
123
    $logs = GetLogs();
123
    is( @{$logs}[0]->{ interface }, 'sip', 'Passed interface is respected (sip)');
124
    is( @{$logs}[0]->{ interface }, 'sip', 'Passed interface is respected (sip)');
124
125
    $dbh->rollback;
126
};
125
};
127
126
128
subtest 'GetLogs() respects interface filters' => sub {
127
subtest 'GetLogs() respects interface filters' => sub {
Lines 150-157 subtest 'GetLogs() respects interface filters' => sub { Link Here
150
149
151
    $logs = GetLogs(undef,undef,undef,undef,undef,undef,undef,['commandline']);
150
    $logs = GetLogs(undef,undef,undef,undef,undef,undef,undef,['commandline']);
152
    is( @{$logs}[0]->{ interface }, 'commandline', 'Interface correctly filtered (commandline)');
151
    is( @{$logs}[0]->{ interface }, 'commandline', 'Interface correctly filtered (commandline)');
153
154
    $dbh->rollback;
155
};
152
};
156
153
157
$dbh->rollback;
154
$schema->storage->txn_rollback;
158
- 

Return to bug 18991