|
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 => 11; |
| 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 |
); |
| 136 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
140 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
| 137 |
|
141 |
|
| 138 |
$dbh->rollback; |
142 |
$dbh->rollback; |
| 139 |
- |
|
|