|
Lines 6-12
use Koha::DateUtils;
Link Here
|
| 6 |
use Koha::Libraries; |
6 |
use Koha::Libraries; |
| 7 |
use Koha::News; |
7 |
use Koha::News; |
| 8 |
|
8 |
|
| 9 |
use Test::More tests => 9; |
9 |
use Test::More tests => 7; |
| 10 |
|
10 |
|
| 11 |
BEGIN { |
11 |
BEGIN { |
| 12 |
use_ok('C4::NewsChannels'); |
12 |
use_ok('C4::NewsChannels'); |
|
Lines 125-140
$query =
Link Here
|
| 125 |
q{ SELECT idnew from opac_news WHERE published_on='2000-01-02'; }; |
125 |
q{ SELECT idnew from opac_news WHERE published_on='2000-01-02'; }; |
| 126 |
my ( $idnew3 ) = $dbh->selectrow_array( $query ); |
126 |
my ( $idnew3 ) = $dbh->selectrow_array( $query ); |
| 127 |
|
127 |
|
| 128 |
# Test upd_opac_new |
|
|
| 129 |
$rv = upd_opac_new(); # intentionally bad parmeters |
| 130 |
is( $rv, 0, 'Correctly failed on no parameter!' ); |
| 131 |
|
| 132 |
$new2 = '<p>Update! There is no news!</p>'; |
| 133 |
$href_entry2->{content} = $new2; |
| 134 |
$href_entry2->{idnew} = $idnew2; |
| 135 |
$rv = upd_opac_new($href_entry2); |
| 136 |
is( $rv, 1, 'Successfully updated second dummy news item!' ); |
| 137 |
|
| 138 |
# Test GetNewsToDisplay |
128 |
# Test GetNewsToDisplay |
| 139 |
my ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
129 |
my ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
| 140 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
130 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |