|
Lines 18-24
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use DateTime::Duration; |
20 |
use DateTime::Duration; |
| 21 |
use Test::More tests => 102; |
21 |
use Test::More tests => 103; |
| 22 |
use Test::Warn; |
22 |
use Test::Warn; |
| 23 |
|
23 |
|
| 24 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
|
Lines 29-37
use C4::Members;
Link Here
|
| 29 |
use C4::Letters; |
29 |
use C4::Letters; |
| 30 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
30 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
| 31 |
use Koha::Database; |
31 |
use Koha::Database; |
| 32 |
use Koha::DateUtils qw( dt_from_string ); |
32 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 33 |
use Koha::Library; |
33 |
use Koha::Library; |
| 34 |
use Koha::Libraries; |
34 |
use Koha::Libraries; |
|
|
35 |
use Koha::Suggestions; |
| 35 |
|
36 |
|
| 36 |
BEGIN { |
37 |
BEGIN { |
| 37 |
use_ok('C4::Suggestions'); |
38 |
use_ok('C4::Suggestions'); |
|
Lines 382-385
subtest 'GetUnprocessedSuggestions' => sub {
Link Here
|
| 382 |
is( scalar(@$unprocessed_suggestions), 0, 'GetUnprocessedSuggestions should not return the suggestion, it has not been suggested 5 days ago' ); |
383 |
is( scalar(@$unprocessed_suggestions), 0, 'GetUnprocessedSuggestions should not return the suggestion, it has not been suggested 5 days ago' ); |
| 383 |
}; |
384 |
}; |
| 384 |
|
385 |
|
|
|
386 |
subtest 'DelSuggestionsOlderThan' => sub { |
| 387 |
plan tests => 6; |
| 388 |
|
| 389 |
Koha::Suggestions->delete; |
| 390 |
|
| 391 |
# Add four suggestions; note that STATUS needs uppercase (FIXME) |
| 392 |
my $d1 = output_pref({ dt => dt_from_string->add(days => -2), dateformat => 'sql' }); |
| 393 |
my $d2 = output_pref({ dt => dt_from_string->add(days => -4), dateformat => 'sql' }); |
| 394 |
my $sugg01 = $builder->build({ source => 'Suggestion', value => { date => $d1, STATUS => 'ASKED' }}); |
| 395 |
my $sugg02 = $builder->build({ source => 'Suggestion', value => { date => $d1, STATUS => 'CHECKED' }}); |
| 396 |
my $sugg03 = $builder->build({ source => 'Suggestion', value => { date => $d2, STATUS => 'ASKED' }}); |
| 397 |
my $sugg04 = $builder->build({ source => 'Suggestion', value => { date => $d2, STATUS => 'ACCEPTED' }}); |
| 398 |
|
| 399 |
# Test no parameter: should do nothing |
| 400 |
C4::Suggestions::DelSuggestionsOlderThan(); |
| 401 |
is( Koha::Suggestions->count, 4, 'No suggestions deleted' ); |
| 402 |
# Test zero: should do nothing too |
| 403 |
C4::Suggestions::DelSuggestionsOlderThan(0); |
| 404 |
is( Koha::Suggestions->count, 4, 'No suggestions deleted again' ); |
| 405 |
# Test negative value |
| 406 |
C4::Suggestions::DelSuggestionsOlderThan(-1); |
| 407 |
is( Koha::Suggestions->count, 4, 'No suggestions deleted for -1' ); |
| 408 |
|
| 409 |
# Test positive values |
| 410 |
C4::Suggestions::DelSuggestionsOlderThan(5); |
| 411 |
is( Koha::Suggestions->count, 4, 'No suggestions>5d deleted' ); |
| 412 |
C4::Suggestions::DelSuggestionsOlderThan(3); |
| 413 |
is( Koha::Suggestions->count, 3, '1 suggestions>3d deleted' ); |
| 414 |
C4::Suggestions::DelSuggestionsOlderThan(1); |
| 415 |
is( Koha::Suggestions->count, 2, '1 suggestions>1d deleted' ); |
| 416 |
}; |
| 417 |
|
| 385 |
$schema->storage->txn_rollback; |
418 |
$schema->storage->txn_rollback; |
| 386 |
- |
|
|