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