| Lines 3-9
          
      
      
        Link Here | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 | use C4::Dates qw(format_date); | 4 | use C4::Dates qw(format_date); | 
        
          | 5 | use C4::Branch qw(GetBranchName); | 5 | use C4::Branch qw(GetBranchName); | 
          
            
              | 6 | use Test::More tests => 10; | 6 | use Test::More tests => 12; | 
        
          | 7 |  | 7 |  | 
        
          | 8 | BEGIN { | 8 | BEGIN { | 
        
          | 9 |     use_ok('C4::NewsChannels'); | 9 |     use_ok('C4::NewsChannels'); | 
  
    | Lines 133-138
          ok( $opac_news_count >= 2, 'Successfully tested get_opac_news for LIB1!' );
      
      
        Link Here | 
        
          | 133 |  | 133 |  | 
        
          | 134 | # Test GetNewsToDisplay | 134 | # Test GetNewsToDisplay | 
        
          | 135 | ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); | 135 | ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); | 
            
              |  |  | 136 | ok( !$arrayref_opac_news, 'Second parameter is ' . | 
            
              | 137 |                           ( defined($arrayref_opac_news) ? | 
            
              | 138 |                               ("Defined as '$arrayref_opac_news'") : "UNDEFINED") | 
            
              | 139 |   ); | 
            
              | 140 | ok ( ref $opac_news_count eq 'ARRAY', | 
            
              | 141 |      '$opac_news_count is an array reference'); | 
        
          | 136 | ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); | 142 | ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); | 
        
          | 137 |  | 143 |  | 
        
          | 138 | $dbh->rollback; | 144 | $dbh->rollback; | 
            
              | 139 | -  |  |  |