|
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 |
- |
|
|