| 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 346-352
          subtest "Koha::Account::pay writeoff tests" => sub {
      
      
        Link Here | 
        
          | 346 |  | 347 |  | 
        
          | 347 | subtest "More Koha::Account::pay tests" => sub { | 348 | subtest "More Koha::Account::pay tests" => sub { | 
        
          | 348 |  | 349 |  | 
          
            
              | 349 |     plan tests => 6; | 350 |     plan tests => 8; | 
        
          | 350 |  | 351 |  | 
        
          | 351 |     # Create a borrower | 352 |     # Create a borrower | 
        
          | 352 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 353 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 
  
    | Lines 376-381
          subtest "More Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 376 |     # make the full payment | 377 |     # make the full payment | 
        
          | 377 |     $account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); | 378 |     $account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); | 
        
          | 378 |  | 379 |  | 
            
              |  |  | 380 |     my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->{accountlines_id} })->next(); | 
            
              | 381 |     is( $offset->amount(), '-100.000000', 'Offset amount is -100.00' ); | 
            
              | 382 |     is( $offset->type(), 'Payment', 'Offset type is Payment' ); | 
            
              | 383 |  | 
        
          | 379 |     my $stat = $schema->resultset('Statistic')->search({ | 384 |     my $stat = $schema->resultset('Statistic')->search({ | 
        
          | 380 |         branch  => $branch, | 385 |         branch  => $branch, | 
        
          | 381 |         type    => 'payment' | 386 |         type    => 'payment' | 
  
    | Lines 395-401
          subtest "More Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 395 |  | 400 |  | 
        
          | 396 | subtest "Even more Koha::Account::pay tests" => sub { | 401 | subtest "Even more Koha::Account::pay tests" => sub { | 
        
          | 397 |  | 402 |  | 
          
            
              | 398 |     plan tests => 6; | 403 |     plan tests => 8; | 
        
          | 399 |  | 404 |  | 
        
          | 400 |     # Create a borrower | 405 |     # Create a borrower | 
        
          | 401 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 406 |     my $category   = $builder->build({ source => 'Category' })->{ categorycode }; | 
  
    | Lines 426-431
          subtest "Even more Koha::Account::pay tests" => sub {
      
      
        Link Here | 
        
          | 426 |     # make the full payment | 431 |     # make the full payment | 
        
          | 427 |     $account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); | 432 |     $account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); | 
        
          | 428 |  | 433 |  | 
            
              |  |  | 434 |     my $offset = Koha::Account::Offsets->search( { debit_id => $accountline->{ accountlines_id } } )->next(); | 
            
              | 435 |     is( $offset->amount, '-60.000000', 'Offset amount is -60.00' ); | 
            
              | 436 |     is( $offset->type, 'Payment', 'Offset type is payment' ); | 
            
              | 437 |  | 
        
          | 429 |     my $stat = $schema->resultset('Statistic')->search({ | 438 |     my $stat = $schema->resultset('Statistic')->search({ | 
        
          | 430 |         branch  => $branch, | 439 |         branch  => $branch, | 
        
          | 431 |         type    => 'payment' | 440 |         type    => 'payment' |