| 
      
            Lines 33-39
          my $schema = Koha::Database->new->schema;
      
      
        Link Here
      
     | 
  
        
          | 33 | 
          my $builder = t::lib::TestBuilder->new;  | 
          33 | 
          my $builder = t::lib::TestBuilder->new;  | 
        
        
          | 34 | 
           | 
          34 | 
           | 
        
        
          | 35 | 
          subtest 'set_rule + get_effective_rule' => sub { | 
          35 | 
          subtest 'set_rule + get_effective_rule' => sub { | 
        
          
            
              | 36 | 
                  plan tests => 8;  | 
              36 | 
                  plan tests => 9;  | 
            
        
          | 37 | 
           | 
          37 | 
           | 
        
        
          | 38 | 
              $schema->storage->txn_begin;  | 
          38 | 
              $schema->storage->txn_begin;  | 
        
        
          | 39 | 
           | 
          39 | 
           | 
        
  
    | 
      
            Lines 102-107
          subtest 'set_rule + get_effective_rule' => sub {
      
      
        Link Here
      
     | 
  
        
          | 102 | 
              is( $rule->rule_value, 1,  | 
          102 | 
              is( $rule->rule_value, 1,  | 
        
        
          | 103 | 
                  'Default rule is returned if there is no rule for this branchcode' );  | 
          103 | 
                  'Default rule is returned if there is no rule for this branchcode' );  | 
        
        
          | 104 | 
           | 
          104 | 
           | 
        
            
               | 
               | 
              105 | 
                  subtest 'test rules that cannot be blank' => sub { | 
            
            
              | 106 | 
                      plan tests => 3;  | 
            
            
              | 107 | 
                      foreach my $no_blank_rule ( ('holdallowed','hold_fulfillment_policy','returnbranch') ){ | 
            
            
              | 108 | 
                          Koha::CirculationRules->set_rule(  | 
            
            
              | 109 | 
                              { | 
            
            
              | 110 | 
                                  branchcode   => $branchcode,  | 
            
            
              | 111 | 
                                  itemtype     => '*',  | 
            
            
              | 112 | 
                                  rule_name    => $no_blank_rule,  | 
            
            
              | 113 | 
                                  rule_value   => '',  | 
            
            
              | 114 | 
                              }  | 
            
            
              | 115 | 
                          );  | 
            
            
              | 116 | 
               | 
            
            
              | 117 | 
                          $rule = Koha::CirculationRules->get_effective_rule(  | 
            
            
              | 118 | 
                              { | 
            
            
              | 119 | 
                                  branchcode   => $branchcode,  | 
            
            
              | 120 | 
                                  categorycode => undef,  | 
            
            
              | 121 | 
                                  itemtype     => undef,  | 
            
            
              | 122 | 
                                  rule_name    => $no_blank_rule,  | 
            
            
              | 123 | 
                              }  | 
            
            
              | 124 | 
                          );  | 
            
            
              | 125 | 
                          is( $rule, undef, 'Rules that cannot be blank are not set when passed blank string' );  | 
            
            
              | 126 | 
                      }  | 
            
            
              | 127 | 
                  };  | 
            
            
              | 128 | 
               | 
            
            
              | 129 | 
               | 
            
        
          | 105 | 
              subtest 'test rule matching with different combinations of rule scopes' => sub { | 
          130 | 
              subtest 'test rule matching with different combinations of rule scopes' => sub { | 
        
        
          | 106 | 
                  my ( $tests, $order ) = prepare_tests_for_rule_scope_combinations(  | 
          131 | 
                  my ( $tests, $order ) = prepare_tests_for_rule_scope_combinations(  | 
        
        
          | 107 | 
                      { | 
          132 | 
                      { | 
        
            
              | 108 | 
              -   | 
               | 
               |