| Lines 103-109
          subtest 'AuthenticatePatron test' => sub {
      
      
        Link Here | 
        
          | 103 |  | 103 |  | 
        
          | 104 | subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes' => sub { | 104 | subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes' => sub { | 
        
          | 105 |  | 105 |  | 
          
            
              | 106 |     plan tests => 2; | 106 |     plan tests => 4; | 
        
          | 107 |  | 107 |  | 
        
          | 108 |     $schema->storage->txn_begin; | 108 |     $schema->storage->txn_begin; | 
        
          | 109 |  | 109 |  | 
  
    | Lines 191-197
          subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
      
      
        Link Here | 
        
          | 191 |         } | 191 |         } | 
        
          | 192 |     } ); | 192 |     } ); | 
        
          | 193 |  | 193 |  | 
          
            
              | 194 |     $builder->build( | 194 |     my $fine = $builder->build( | 
        
          | 195 |         { | 195 |         { | 
        
          | 196 |             source => 'Accountline', | 196 |             source => 'Accountline', | 
        
          | 197 |             value  => { | 197 |             value  => { | 
  
    | Lines 208-213
          subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
      
      
        Link Here | 
        
          | 208 |     $query->param( 'service', 'GetPatronInfo' ); | 208 |     $query->param( 'service', 'GetPatronInfo' ); | 
        
          | 209 |     $query->param( 'patron_id', $brwr->{'borrowernumber'} ); | 209 |     $query->param( 'patron_id', $brwr->{'borrowernumber'} ); | 
        
          | 210 |     $query->param( 'show_attributes', '1' ); | 210 |     $query->param( 'show_attributes', '1' ); | 
            
              |  |  | 211 |     $query->param( 'show_fines', '1' ); | 
        
          | 211 |  | 212 |  | 
        
          | 212 |     my $reply = C4::ILSDI::Services::GetPatronInfo( $query ); | 213 |     my $reply = C4::ILSDI::Services::GetPatronInfo( $query ); | 
        
          | 213 |  | 214 |  | 
  
    | Lines 225-230
          subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
      
      
        Link Here | 
        
          | 225 |     is( $reply->{'charges'}, '10.00', | 226 |     is( $reply->{'charges'}, '10.00', | 
        
          | 226 |         'The \'charges\' attribute should be correctly filled (bug 17836)' ); | 227 |         'The \'charges\' attribute should be correctly filled (bug 17836)' ); | 
        
          | 227 |  | 228 |  | 
            
              |  |  | 229 |     is( scalar( @{$reply->{fines}->{fine}}), 1, 'There should be only 1 account line'); | 
            
              | 230 |     is( | 
            
              | 231 |         $reply->{fines}->{fine}->[0]->{accountlines_id}, | 
            
              | 232 |         $fine->{accountlines_id}, | 
            
              | 233 |         "The accountline should be the correct one" | 
            
              | 234 |     ); | 
            
              | 235 |  | 
        
          | 228 |     # Check results: | 236 |     # Check results: | 
        
          | 229 |     is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' ); | 237 |     is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' ); | 
        
          | 230 |  | 238 |  | 
            
              | 231 | -  |  |  |