Lines 24-29
use Test::Warn;
Link Here
|
24 |
use t::lib::TestBuilder; |
24 |
use t::lib::TestBuilder; |
25 |
use C4::Context; |
25 |
use C4::Context; |
26 |
use Koha::Database; |
26 |
use Koha::Database; |
|
|
27 |
use Koha::DateUtils qw( dt_from_string ); |
27 |
use Koha::Items; |
28 |
use Koha::Items; |
28 |
use Koha::Reports; |
29 |
use Koha::Reports; |
29 |
use Koha::Notice::Messages; |
30 |
use Koha::Notice::Messages; |
Lines 185-191
subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub {
Link Here
|
185 |
}; |
186 |
}; |
186 |
|
187 |
|
187 |
subtest 'get_saved_reports' => sub { |
188 |
subtest 'get_saved_reports' => sub { |
188 |
plan tests => 17; |
189 |
plan tests => 18; |
189 |
my $dbh = C4::Context->dbh; |
190 |
my $dbh = C4::Context->dbh; |
190 |
$dbh->do(q|DELETE FROM saved_sql|); |
191 |
$dbh->do(q|DELETE FROM saved_sql|); |
191 |
$dbh->do(q|DELETE FROM saved_reports|); |
192 |
$dbh->do(q|DELETE FROM saved_reports|); |
Lines 220-225
subtest 'get_saved_reports' => sub {
Link Here
|
220 |
|
221 |
|
221 |
ok( 0 < scalar @{ get_saved_reports( $report_ids[0] ) }, "filter takes report id" ); |
222 |
ok( 0 < scalar @{ get_saved_reports( $report_ids[0] ) }, "filter takes report id" ); |
222 |
|
223 |
|
|
|
224 |
ok( 0 < scalar @{ get_saved_reports({date => dt_from_string->ymd }) }, "filter takes date" ); |
225 |
|
223 |
my $r1 = Koha::Reports->find($report_ids[0]); |
226 |
my $r1 = Koha::Reports->find($report_ids[0]); |
224 |
$r1 = update_sql($r1->id, { %{$r1->unblessed}, borrowernumber => $r1->borrowernumber, name => 'Just another report' }); |
227 |
$r1 = update_sql($r1->id, { %{$r1->unblessed}, borrowernumber => $r1->borrowernumber, name => 'Just another report' }); |
225 |
is( $r1->cache_expiry, 300, 'cache_expiry has the correct default value, from DBMS' ); |
228 |
is( $r1->cache_expiry, 300, 'cache_expiry has the correct default value, from DBMS' ); |
226 |
- |
|
|