| Lines 691-707
          subtest 'reconcile_balance' => sub {
      
      
        Link Here | 
        
          | 691 |  | 691 |  | 
        
          | 692 | subtest 'pay() tests' => sub { | 692 | subtest 'pay() tests' => sub { | 
        
          | 693 |  | 693 |  | 
          
            
              | 694 |     plan tests => 6; | 694 |     plan tests => 7; | 
        
          | 695 |  | 695 |  | 
        
          | 696 |     $schema->storage->txn_begin; | 696 |     $schema->storage->txn_begin; | 
        
          | 697 |  | 697 |  | 
        
          | 698 |     # Disable renewing upon fine payment | 698 |     # Disable renewing upon fine payment | 
        
          | 699 |     t::lib::Mocks::mock_preference( 'RenewAccruingItemWhenPaid', 0 ); | 699 |     t::lib::Mocks::mock_preference( 'RenewAccruingItemWhenPaid', 0 ); | 
        
          | 700 |  | 700 |  | 
            
              |  |  | 701 |  | 
        
          | 701 |     my $patron  = $builder->build_object({ class => 'Koha::Patrons' }); | 702 |     my $patron  = $builder->build_object({ class => 'Koha::Patrons' }); | 
        
          | 702 |     my $library = $builder->build_object({ class => 'Koha::Libraries' }); | 703 |     my $library = $builder->build_object({ class => 'Koha::Libraries' }); | 
        
          | 703 |     my $account = $patron->account; | 704 |     my $account = $patron->account; | 
        
          | 704 |  | 705 |  | 
            
              |  |  | 706 |     t::lib::Mocks::mock_preference( 'RequirePaymentType', 1 ); | 
            
              | 707 |     throws_ok { | 
            
              | 708 |         $account->pay( | 
            
              | 709 |             { | 
            
              | 710 |                 amount       => 5, | 
            
              | 711 |                 interface    => 'intranet' | 
            
              | 712 |             } | 
            
              | 713 |         ); | 
            
              | 714 |     } | 
            
              | 715 |     'Koha::Exceptions::Account::PaymentTypeRequired', | 
            
              | 716 |       'Exception thrown for RequirePaymentType:1 + payment_type:undef'; | 
            
              | 717 |  | 
            
              | 718 |     t::lib::Mocks::mock_preference( 'RequirePaymentType', 0 ); | 
        
          | 705 |     my $context = Test::MockModule->new('C4::Context'); | 719 |     my $context = Test::MockModule->new('C4::Context'); | 
        
          | 706 |     $context->mock( 'userenv', { branch => $library->id } ); | 720 |     $context->mock( 'userenv', { branch => $library->id } ); | 
        
          | 707 |  | 721 |  | 
  
    | Lines 714-720
          subtest 'pay() tests' => sub {
      
      
        Link Here | 
        
          | 714 |     my $credit_2    = Koha::Account::Lines->find( $credit_2_id ); | 728 |     my $credit_2    = Koha::Account::Lines->find( $credit_2_id ); | 
        
          | 715 |  | 729 |  | 
        
          | 716 |     is( $credit_2->branchcode, $library->id, 'branchcode set because library_id was passed' ); | 730 |     is( $credit_2->branchcode, $library->id, 'branchcode set because library_id was passed' ); | 
            
              | 717 |  |  |  | 
        
          | 718 |     # Enable cash registers | 731 |     # Enable cash registers | 
        
          | 719 |     t::lib::Mocks::mock_preference( 'UseCashRegisters', 1 ); | 732 |     t::lib::Mocks::mock_preference( 'UseCashRegisters', 1 ); | 
        
          | 720 |     throws_ok { | 733 |     throws_ok { | 
            
              | 721 | -  |  |  |