Lines 181-187
subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub {
Link Here
|
181 |
}; |
181 |
}; |
182 |
|
182 |
|
183 |
subtest 'get_saved_reports' => sub { |
183 |
subtest 'get_saved_reports' => sub { |
184 |
plan tests => 16; |
184 |
plan tests => 17; |
185 |
my $dbh = C4::Context->dbh; |
185 |
my $dbh = C4::Context->dbh; |
186 |
$dbh->do(q|DELETE FROM saved_sql|); |
186 |
$dbh->do(q|DELETE FROM saved_sql|); |
187 |
$dbh->do(q|DELETE FROM saved_reports|); |
187 |
$dbh->do(q|DELETE FROM saved_reports|); |
Lines 216-221
subtest 'get_saved_reports' => sub {
Link Here
|
216 |
|
216 |
|
217 |
ok( 0 < scalar @{ get_saved_reports( $report_ids[0] ) }, "filter takes report id" ); |
217 |
ok( 0 < scalar @{ get_saved_reports( $report_ids[0] ) }, "filter takes report id" ); |
218 |
|
218 |
|
|
|
219 |
my $r1 = Koha::Reports->find($report_ids[0]); |
220 |
$r1 = update_sql($r1->id, { borrowernumber => $r1->borrowernumber, name => 'Just another report' }); |
221 |
is( $r1->cache_expiry, 300, 'cache_expiry has the correct default value, from DBMS' ); |
222 |
|
219 |
#Test delete_report |
223 |
#Test delete_report |
220 |
is (delete_report(),undef, "Without id delete_report returns undef"); |
224 |
is (delete_report(),undef, "Without id delete_report returns undef"); |
221 |
|
225 |
|
222 |
- |
|
|