| Lines 19-25
          
      
      
        Link Here | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | use Test::More tests => 3; | 22 | use Test::More tests => 4; | 
        
          | 23 |  | 23 |  | 
        
          | 24 | use t::lib::Mocks; | 24 | use t::lib::Mocks; | 
        
          | 25 | use t::lib::TestBuilder; | 25 | use t::lib::TestBuilder; | 
  
    | Lines 110-115
          subtest 'Test Koha::Patron::Message::Preferences' => sub {
      
      
        Link Here | 
        
          | 110 |     $schema->storage->txn_rollback; | 110 |     $schema->storage->txn_rollback; | 
        
          | 111 | }; | 111 | }; | 
        
          | 112 |  | 112 |  | 
            
              |  |  | 113 | subtest 'Test Koha::Patron::Message::Preferences->get_options' => sub { | 
            
              | 114 |     plan tests => 2; | 
            
              | 115 |  | 
            
              | 116 |     subtest 'Test method availability and return value' => sub { | 
            
              | 117 |         plan tests => 3; | 
            
              | 118 |  | 
            
              | 119 |         ok(Koha::Patron::Message::Preferences->can('get_options'), | 
            
              | 120 |             'Method get_options is available.'); | 
            
              | 121 |         ok(my $options = Koha::Patron::Message::Preferences->get_options, | 
            
              | 122 |             'Called get_options successfully.'); | 
            
              | 123 |         is(ref($options), 'ARRAY', 'get_options returns a ARRAYref'); | 
            
              | 124 |     }; | 
            
              | 125 |  | 
            
              | 126 |     subtest 'Make sure options are correct' => sub { | 
            
              | 127 |         $schema->storage->txn_begin; | 
            
              | 128 |         my $options = Koha::Patron::Message::Preferences->get_options; | 
            
              | 129 |  | 
            
              | 130 |         foreach my $option (@$options) { | 
            
              | 131 |             my $n = $option->{'message_name'}; | 
            
              | 132 |             my $attr = Koha::Patron::Message::Attributes->find($option->{'message_attribute_id'}); | 
            
              | 133 |             is($option->{'message_attribute_id'}, $attr->message_attribute_id, | 
            
              | 134 |                '$n: message_attribute_id is set'); | 
            
              | 135 |             is($option->{'message_name'}, $attr->message_name, '$n: message_name is set'); | 
            
              | 136 |             is($option->{'takes_days'}, $attr->takes_days, '$n: takes_days is set'); | 
            
              | 137 |             my $transports = Koha::Patron::Message::Transports->search({ | 
            
              | 138 |                 message_attribute_id => $option->{'message_attribute_id'}, | 
            
              | 139 |                 is_digest => $option->{'has_digest'} || 0, | 
            
              | 140 |             }); | 
            
              | 141 |             while (my $trnzport = $transports->next) { | 
            
              | 142 |                 is($option->{'has_digest'} || 0, $trnzport->is_digest, '$n: has_digest is set for '.$trnzport->message_transport_type); | 
            
              | 143 |                 is($option->{'transport_'.$trnzport->message_transport_type}, ' ', '$n: transport_'.$trnzport->message_transport_type.' is set'); | 
            
              | 144 |             } | 
            
              | 145 |         } | 
            
              | 146 |  | 
            
              | 147 |         $schema->storage->txn_rollback; | 
            
              | 148 |     }; | 
            
              | 149 | }; | 
            
              | 150 |  | 
        
          | 113 | subtest 'Test adding a new preference with invalid parameters' => sub { | 151 | subtest 'Test adding a new preference with invalid parameters' => sub { | 
        
          | 114 |     plan tests => 4; | 152 |     plan tests => 4; | 
        
          | 115 |  | 153 |  | 
            
              | 116 | -  |  |  |