| Lines 27-32
          use t::lib::TestBuilder;
      
      
        Link Here | 
        
          | 27 | use Koha::Account; | 27 | use Koha::Account; | 
        
          | 28 | use Koha::Account::Lines; | 28 | use Koha::Account::Lines; | 
        
          | 29 | use Koha::Account::Line; | 29 | use Koha::Account::Line; | 
            
              |  |  | 30 | use Koha::Account::Offsets; | 
        
          | 30 |  | 31 |  | 
        
          | 31 | BEGIN { | 32 | BEGIN { | 
        
          | 32 |     use_ok('C4::Accounts'); | 33 |     use_ok('C4::Accounts'); | 
  
    | Lines 253-259
          subtest "Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 253 |  | 254 |  | 
        
          | 254 | subtest "More Koha::Account::pay tests" => sub { | 255 | subtest "More Koha::Account::pay tests" => sub { | 
        
          | 255 |  | 256 |  | 
          
            
              | 256 |     plan tests => 6; | 257 |     plan tests => 8; | 
        
          | 257 |  | 258 |  | 
        
          | 258 |     # Create a borrower | 259 |     # Create a borrower | 
        
          | 259 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 260 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 
  
    | Lines 283-288
          subtest "More Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 283 |     # make the full payment | 284 |     # make the full payment | 
        
          | 284 |     $account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); | 285 |     $account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); | 
        
          | 285 |  | 286 |  | 
            
              |  |  | 287 |     my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->{accountlines_id} })->next(); | 
            
              | 288 |     is( $offset->amount(), '-100.000000', 'Offset amount is -100.00' ); | 
            
              | 289 |     is( $offset->type(), 'Payment', 'Offset type is Payment' ); | 
            
              | 290 |  | 
        
          | 286 |     my $stat = $schema->resultset('Statistic')->search({ | 291 |     my $stat = $schema->resultset('Statistic')->search({ | 
        
          | 287 |         branch  => $branch, | 292 |         branch  => $branch, | 
        
          | 288 |         type    => 'payment' | 293 |         type    => 'payment' | 
  
    | Lines 302-308
          subtest "More Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 302 |  | 307 |  | 
        
          | 303 | subtest "Even more Koha::Account::pay tests" => sub { | 308 | subtest "Even more Koha::Account::pay tests" => sub { | 
        
          | 304 |  | 309 |  | 
          
            
              | 305 |     plan tests => 6; | 310 |     plan tests => 8; | 
        
          | 306 |  | 311 |  | 
        
          | 307 |     # Create a borrower | 312 |     # Create a borrower | 
        
          | 308 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 313 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 
  
    | Lines 333-338
          subtest "Even more Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 333 |     # make the full payment | 338 |     # make the full payment | 
        
          | 334 |     $account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); | 339 |     $account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); | 
        
          | 335 |  | 340 |  | 
            
              |  |  | 341 |     my $offset = Koha::Account::Offsets->search( { debit_id => $accountline->{ accountlines_id } } )->next(); | 
            
              | 342 |     is( $offset->amount, '-60.000000', 'Offset amount is -60.00' ); | 
            
              | 343 |     is( $offset->type, 'Payment', 'Offset type is payment' ); | 
            
              | 344 |  | 
        
          | 336 |     my $stat = $schema->resultset('Statistic')->search({ | 345 |     my $stat = $schema->resultset('Statistic')->search({ | 
        
          | 337 |         branch  => $branch, | 346 |         branch  => $branch, | 
        
          | 338 |         type    => 'payment' | 347 |         type    => 'payment' |