| 
      
            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 => 80;  | 
              21 | 
              use Test::More tests => 77;  | 
            
        
          | 22 | 
          use Test::Warn;  | 
          22 | 
          use Test::Warn;  | 
        
        
          | 23 | 
           | 
          23 | 
           | 
        
        
          | 24 | 
          use t::lib::Mocks;  | 
          24 | 
          use t::lib::Mocks;  | 
        
  
    | 
      
            Lines 35-41
          use Koha::Patrons;
      
      
        Link Here
      
     | 
  
        
          | 35 | 
          use Koha::Suggestions;  | 
          35 | 
          use Koha::Suggestions;  | 
        
        
          | 36 | 
           | 
          36 | 
           | 
        
        
          | 37 | 
          BEGIN { | 
          37 | 
          BEGIN { | 
        
          
            
              | 38 | 
                  use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionFromBiblionumber GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan )); | 
              38 | 
                  use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan )); | 
            
        
          | 39 | 
          }  | 
          39 | 
          }  | 
        
        
          | 40 | 
           | 
          40 | 
           | 
        
        
          | 41 | 
          my $schema  = Koha::Database->new->schema;  | 
          41 | 
          my $schema  = Koha::Database->new->schema;  | 
        
  
    | 
      
            Lines 294-304
          is( $suggestion->{firstnamesuggestedby}, $member->{firstname}, 'GetSuggestionInf
      
      
        Link Here
      
     | 
  
        
          | 294 | 
          is( $suggestion->{borrnumsuggestedby}, $my_suggestion->{suggestedby}, 'GetSuggestionInfo returns the borrower number correctly' ); | 
          294 | 
          is( $suggestion->{borrnumsuggestedby}, $my_suggestion->{suggestedby}, 'GetSuggestionInfo returns the borrower number correctly' ); | 
        
        
          | 295 | 
           | 
          295 | 
           | 
        
        
          | 296 | 
           | 
          296 | 
           | 
        
            
              | 297 | 
              is( GetSuggestionFromBiblionumber(), undef, 'GetSuggestionFromBiblionumber without the biblio number returns undef' );  | 
               | 
               | 
            
            
              | 298 | 
              is( GetSuggestionFromBiblionumber(2), undef, 'GetSuggestionFromBiblionumber with an invalid biblio number returns undef' );  | 
            
            
              | 299 | 
              is( GetSuggestionFromBiblionumber($biblio_1->biblionumber), $my_suggestionid, 'GetSuggestionFromBiblionumber functions correctly' );  | 
            
            
              | 300 | 
               | 
            
            
              | 301 | 
               | 
            
        
          | 302 | 
          my $suggestions = GetSuggestionByStatus();  | 
          297 | 
          my $suggestions = GetSuggestionByStatus();  | 
        
        
          | 303 | 
          is( @$suggestions, 0, 'GetSuggestionByStatus without the status returns an empty array' );  | 
          298 | 
          is( @$suggestions, 0, 'GetSuggestionByStatus without the status returns an empty array' );  | 
        
        
          | 304 | 
          $suggestions = GetSuggestionByStatus('CHECKED'); | 
          299 | 
          $suggestions = GetSuggestionByStatus('CHECKED'); | 
        
            
              | 305 | 
              -   | 
               | 
               |