Lines 180-185
sub returnValuePassthrough {
Link Here
|
180 |
} |
180 |
} |
181 |
t::Koha::Logger::clearLog(); |
181 |
t::Koha::Logger::clearLog(); |
182 |
|
182 |
|
|
|
183 |
|
184 |
subtest "Koha::Logger->sql()", \&sqlsql; |
185 |
sub sqlsql { |
186 |
my $logger = Koha::Logger->get({category => "sqlsql-1"}); |
187 |
my $retval = $logger->sql('fatal', 'SELECT * FROM a WHERE b=? AND c=? OR d=?', [1,2,3]) if $logger->is_fatal(); |
188 |
my $log = t::Koha::Logger::slurpLog('wantArray'); |
189 |
is(scalar(@$log), 1, "One entry written"); |
190 |
is($retval, 1, "Koha::Logger->sql() returns 'true' per Log4perl best practices"); |
191 |
ok($log->[0] =~ /SELECT \* FROM a WHERE b=\? AND c=\? OR d=\? -- 1 2 3/); |
192 |
t::Koha::Logger::clearLog(); |
193 |
} |
194 |
|
195 |
|
183 |
sub _loggerBlarbAllLevels { |
196 |
sub _loggerBlarbAllLevels { |
184 |
my ($logger) = @_; |
197 |
my ($logger) = @_; |
185 |
$logger->trace('trace'); |
198 |
$logger->trace('trace'); |
186 |
- |
|
|