| Lines 20-26
          
      
      
        Link Here | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
        
          | 21 |  | 21 |  | 
        
          | 22 | use Benchmark; | 22 | use Benchmark; | 
          
            
              | 23 | use Test::More tests => 7; | 23 | use Test::More tests => 8; | 
        
          | 24 | use Test::Deep qw( cmp_methods ); | 24 | use Test::Deep qw( cmp_methods ); | 
        
          | 25 | use Test::Exception; | 25 | use Test::Exception; | 
        
          | 26 |  | 26 |  | 
  
    | Lines 656-661
          subtest 'get_effective_daysmode' => sub {
      
      
        Link Here | 
        
          | 656 |     $schema->storage->txn_rollback; | 656 |     $schema->storage->txn_rollback; | 
        
          | 657 | }; | 657 | }; | 
        
          | 658 |  | 658 |  | 
            
              |  |  | 659 | subtest 'get_effective_expire_reserves_charge' => sub { | 
            
              | 660 |     plan tests => 4; | 
            
              | 661 |  | 
            
              | 662 |     $schema->storage->txn_begin; | 
            
              | 663 |  | 
            
              | 664 |     Koha::CirculationRules->search({ rule_name => 'expire_reserves_charge' })->delete; | 
            
              | 665 |  | 
            
              | 666 |     t::lib::Mocks::mock_preference( 'ExpireReservesMaxPickUpDelayCharge', 10 ); | 
            
              | 667 |  | 
            
              | 668 |     is( | 
            
              | 669 |         Koha::CirculationRules->get_effective_expire_reserves_charge( | 
            
              | 670 |             { | 
            
              | 671 |                 itemtype     => undef, | 
            
              | 672 |                 branchcode   => undef, | 
            
              | 673 |                 categorycode => undef, | 
            
              | 674 |             } | 
            
              | 675 |         ), | 
            
              | 676 |         '10', | 
            
              | 677 |         'use the default pref value as the circ rule does not exist' | 
            
              | 678 |     ); | 
            
              | 679 |  | 
            
              | 680 |     Koha::CirculationRules->set_rule( | 
            
              | 681 |         { | 
            
              | 682 |             branchcode   => '*', | 
            
              | 683 |             categorycode => '*', | 
            
              | 684 |             itemtype     => '*', | 
            
              | 685 |             rule_name    => 'expire_reserves_charge', | 
            
              | 686 |             rule_value   => '20' | 
            
              | 687 |         } | 
            
              | 688 |     ); | 
            
              | 689 |  | 
            
              | 690 |     is( | 
            
              | 691 |         Koha::CirculationRules->get_effective_expire_reserves_charge( | 
            
              | 692 |             { | 
            
              | 693 |                 categorycode => undef, | 
            
              | 694 |                 itemtype     => undef, | 
            
              | 695 |                 branchcode   => undef | 
            
              | 696 |             } | 
            
              | 697 |         ), | 
            
              | 698 |         '20', | 
            
              | 699 |         "use the value from the circ rules" | 
            
              | 700 |     ); | 
            
              | 701 |  | 
            
              | 702 |     t::lib::Mocks::mock_preference( 'ExpireReservesMaxPickUpDelayCharge', 30 ); | 
            
              | 703 |  | 
            
              | 704 |     Koha::CirculationRules->set_rule( | 
            
              | 705 |         { | 
            
              | 706 |             branchcode   => '*', | 
            
              | 707 |             categorycode => '*', | 
            
              | 708 |             itemtype     => '*', | 
            
              | 709 |             rule_name    => 'expire_reserves_charge', | 
            
              | 710 |             rule_value   => undef | 
            
              | 711 |         } | 
            
              | 712 |     ); | 
            
              | 713 |  | 
            
              | 714 |     is( | 
            
              | 715 |         Koha::CirculationRules->get_effective_expire_reserves_charge( | 
            
              | 716 |             { | 
            
              | 717 |                 categorycode => undef, | 
            
              | 718 |                 itemtype     => undef, | 
            
              | 719 |                 branchcode   => undef | 
            
              | 720 |             } | 
            
              | 721 |         ), | 
            
              | 722 |         '30', | 
            
              | 723 |         "use the default pref value for as the circ rule has undefined value" | 
            
              | 724 |     ); | 
            
              | 725 |  | 
            
              | 726 |     Koha::CirculationRules->set_rule( | 
            
              | 727 |         { | 
            
              | 728 |             branchcode   => '*', | 
            
              | 729 |             categorycode => '*', | 
            
              | 730 |             itemtype     => '*', | 
            
              | 731 |             rule_name    => 'expire_reserves_charge', | 
            
              | 732 |             rule_value   => '0' | 
            
              | 733 |         } | 
            
              | 734 |     ); | 
            
              | 735 |  | 
            
              | 736 |     is( | 
            
              | 737 |         Koha::CirculationRules->get_effective_expire_reserves_charge( | 
            
              | 738 |             { | 
            
              | 739 |                 categorycode => undef, | 
            
              | 740 |                 itemtype     => undef, | 
            
              | 741 |                 branchcode   => undef | 
            
              | 742 |             } | 
            
              | 743 |         ), | 
            
              | 744 |         '0', | 
            
              | 745 |         "use the value from the circ rules for even though it's 0" | 
            
              | 746 |     ); | 
            
              | 747 |  | 
            
              | 748 |     $schema->storage->txn_rollback; | 
            
              | 749 | }; | 
            
              | 750 |  | 
        
          | 659 | subtest 'get_lostreturn_policy() tests' => sub { | 751 | subtest 'get_lostreturn_policy() tests' => sub { | 
        
          | 660 |     plan tests => 7; | 752 |     plan tests => 7; | 
        
          | 661 |  | 753 |  | 
            
              | 662 | -  |  |  |