View | Details | Raw Unified | Return to bug 16550
Collapse All | Expand All

(-)a/t/db_dependent/NewsChannels.t (-2 / +26 lines)
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
- 

Return to bug 16550