Lines 4-10
use Modern::Perl;
Link Here
|
4 |
use C4::Branch qw(GetBranchName); |
4 |
use C4::Branch qw(GetBranchName); |
5 |
use Koha::DateUtils; |
5 |
use Koha::DateUtils; |
6 |
|
6 |
|
7 |
use Test::More tests => 12; |
7 |
use Test::More tests => 14; |
8 |
|
8 |
|
9 |
BEGIN { |
9 |
BEGIN { |
10 |
use_ok('C4::NewsChannels'); |
10 |
use_ok('C4::NewsChannels'); |
Lines 69-74
ok( $rv == 0, 'Correctly failed on no parameter!' );
Link Here
|
69 |
|
69 |
|
70 |
my $timestamp = '2000-01-01'; |
70 |
my $timestamp = '2000-01-01'; |
71 |
my ( $timestamp1, $timestamp2 ) = ( $timestamp, $timestamp ); |
71 |
my ( $timestamp1, $timestamp2 ) = ( $timestamp, $timestamp ); |
|
|
72 |
my $timestamp3 = '2000-01-02'; |
72 |
my ( $title1, $new1, $lang1, $expirationdate1, $number1 ) = |
73 |
my ( $title1, $new1, $lang1, $expirationdate1, $number1 ) = |
73 |
( 'News Title', '<p>We have some exciting news!</p>', q{}, '2999-12-30', 1 ); |
74 |
( 'News Title', '<p>We have some exciting news!</p>', q{}, '2999-12-30', 1 ); |
74 |
my $href_entry1 = { |
75 |
my $href_entry1 = { |
Lines 99-104
my $href_entry2 = {
Link Here
|
99 |
$rv = add_opac_new($href_entry2); |
100 |
$rv = add_opac_new($href_entry2); |
100 |
ok( $rv == 1, 'Successfully added the second dummy news item!' ); |
101 |
ok( $rv == 1, 'Successfully added the second dummy news item!' ); |
101 |
|
102 |
|
|
|
103 |
my ( $title3, $new3, $lang3, $number3 ) = |
104 |
( 'News Title3', '<p>News without expiration date</p>', q{}, 1 ); |
105 |
my $href_entry3 = { |
106 |
title => $title3, |
107 |
new => $new3, |
108 |
lang => $lang3, |
109 |
timestamp => $timestamp3, |
110 |
number => $number3, |
111 |
borrowernumber => $brwrnmbr, |
112 |
branchcode => 'LIB1', |
113 |
}; |
114 |
$rv = add_opac_new($href_entry3); |
115 |
ok( $rv == 1, 'Successfully added the third dummy news item without expiration date!' ); |
116 |
|
102 |
# We need to determine the idnew in a non-MySQLism way. |
117 |
# We need to determine the idnew in a non-MySQLism way. |
103 |
# This should be good enough. |
118 |
# This should be good enough. |
104 |
my $query = |
119 |
my $query = |
Lines 112-117
$sth = $dbh->prepare($query);
Link Here
|
112 |
$sth->execute(); |
127 |
$sth->execute(); |
113 |
my $idnew2 = $sth->fetchrow; |
128 |
my $idnew2 = $sth->fetchrow; |
114 |
|
129 |
|
|
|
130 |
$query = |
131 |
q{ SELECT idnew from opac_news WHERE timestamp='2000-01-02'; }; |
132 |
$sth = $dbh->prepare($query); |
133 |
$sth->execute(); |
134 |
my $idnew3 = $sth->fetchrow; |
135 |
|
115 |
# Test upd_opac_new |
136 |
# Test upd_opac_new |
116 |
$rv = upd_opac_new(); # intentionally bad parmeters |
137 |
$rv = upd_opac_new(); # intentionally bad parmeters |
117 |
ok( $rv == 0, 'Correctly failed on no parameter!' ); |
138 |
ok( $rv == 0, 'Correctly failed on no parameter!' ); |
Lines 169-174
is_deeply(
Link Here
|
169 |
'got back expected news item via get_opac_new - ID 2' |
190 |
'got back expected news item via get_opac_new - ID 2' |
170 |
); |
191 |
); |
171 |
|
192 |
|
|
|
193 |
# Test get_opac_new (single news item without expiration date) |
194 |
my $news3 = get_opac_new($idnew3); |
195 |
ok (! $news3->{ expirationdate }, "Expiration date should be empty"); |
196 |
|
172 |
# Test get_opac_news (multiple news items) |
197 |
# Test get_opac_news (multiple news items) |
173 |
my ( $opac_news_count, $arrayref_opac_news ) = get_opac_news( 0, q{}, 'LIB1' ); |
198 |
my ( $opac_news_count, $arrayref_opac_news ) = get_opac_news( 0, q{}, 'LIB1' ); |
174 |
|
199 |
|
175 |
- |
|
|