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