|
Lines 485-494
subtest 'DelSuggestionsOlderThan' => sub {
Link Here
|
| 485 |
# Add four suggestions; note that STATUS needs uppercase (FIXME) |
485 |
# Add four suggestions; note that STATUS needs uppercase (FIXME) |
| 486 |
my $d1 = output_pref({ dt => dt_from_string->add(days => -2), dateformat => 'sql' }); |
486 |
my $d1 = output_pref({ dt => dt_from_string->add(days => -2), dateformat => 'sql' }); |
| 487 |
my $d2 = output_pref({ dt => dt_from_string->add(days => -4), dateformat => 'sql' }); |
487 |
my $d2 = output_pref({ dt => dt_from_string->add(days => -4), dateformat => 'sql' }); |
| 488 |
my $sugg01 = $builder->build({ source => 'Suggestion', value => { date => $d1, STATUS => 'ASKED' }}); |
488 |
my $sugg01 = $builder->build({ source => 'Suggestion', value => { manageddate => $d1, date => $d2, STATUS => 'ASKED' }}); |
| 489 |
my $sugg02 = $builder->build({ source => 'Suggestion', value => { date => $d1, STATUS => 'CHECKED' }}); |
489 |
my $sugg02 = $builder->build({ source => 'Suggestion', value => { manageddate => $d1, date => $d2, STATUS => 'CHECKED' }}); |
| 490 |
my $sugg03 = $builder->build({ source => 'Suggestion', value => { date => $d2, STATUS => 'ASKED' }}); |
490 |
my $sugg03 = $builder->build({ source => 'Suggestion', value => { manageddate => $d2, date => $d2, STATUS => 'ASKED' }}); |
| 491 |
my $sugg04 = $builder->build({ source => 'Suggestion', value => { date => $d2, STATUS => 'ACCEPTED' }}); |
491 |
my $sugg04 = $builder->build({ source => 'Suggestion', value => { manageddate => $d2, date => $d2, STATUS => 'ACCEPTED' }}); |
| 492 |
|
492 |
|
| 493 |
# Test no parameter: should do nothing |
493 |
# Test no parameter: should do nothing |
| 494 |
C4::Suggestions::DelSuggestionsOlderThan(); |
494 |
C4::Suggestions::DelSuggestionsOlderThan(); |
| 495 |
- |
|
|