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 => 7; |
9 |
use Test::More tests => 4; |
10 |
|
10 |
|
11 |
BEGIN { |
11 |
BEGIN { |
12 |
use_ok('C4::NewsChannels'); |
12 |
use_ok('C4::NewsChannels'); |
Lines 61-130
my $brwrnmbr;
Link Here
|
61 |
# Must have valid borrower number, or tests are meaningless. |
61 |
# Must have valid borrower number, or tests are meaningless. |
62 |
ok ( defined $brwrnmbr ); |
62 |
ok ( defined $brwrnmbr ); |
63 |
|
63 |
|
64 |
# Test add_opac_new |
|
|
65 |
my $rv = add_opac_new(); # intentionally bad |
66 |
is( $rv, 0, 'Correctly failed on no parameter!' ); |
67 |
|
68 |
my $timestamp = '2000-01-01'; |
69 |
my ( $timestamp1, $timestamp2 ) = ( $timestamp, $timestamp ); |
70 |
my $timestamp3 = '2000-01-02'; |
71 |
my ( $title1, $new1, $lang1, $expirationdate1, $number1 ) = |
72 |
( 'News Title', '<p>We have some exciting news!</p>', q{}, '2999-12-30', 1 ); |
73 |
my $href_entry1 = { |
74 |
title => $title1, |
75 |
content => $new1, |
76 |
lang => $lang1, |
77 |
expirationdate => $expirationdate1, |
78 |
published_on=> $timestamp1, |
79 |
number => $number1, |
80 |
branchcode => 'LIB1', |
81 |
}; |
82 |
|
83 |
$rv = add_opac_new($href_entry1); |
84 |
is( $rv, 1, 'Successfully added the first dummy news item!' ); |
85 |
|
86 |
my ( $title2, $new2, $lang2, $expirationdate2, $number2 ) = |
87 |
( 'News Title2', '<p>We have some exciting news!</p>', q{}, '2999-12-31', 1 ); |
88 |
my $href_entry2 = { |
89 |
title => $title2, |
90 |
content => $new2, |
91 |
lang => $lang2, |
92 |
expirationdate => $expirationdate2, |
93 |
published_on=> $timestamp2, |
94 |
number => $number2, |
95 |
borrowernumber => $brwrnmbr, |
96 |
branchcode => 'LIB1', |
97 |
}; |
98 |
$rv = add_opac_new($href_entry2); |
99 |
is( $rv, 1, 'Successfully added the second dummy news item!' ); |
100 |
|
101 |
my ( $title3, $new3, $lang3, $number3 ) = |
102 |
( 'News Title3', '<p>News without expiration date</p>', q{}, 1 ); |
103 |
my $href_entry3 = { |
104 |
title => $title3, |
105 |
content => $new3, |
106 |
lang => $lang3, |
107 |
published_on=> $timestamp3, |
108 |
number => $number3, |
109 |
borrowernumber => $brwrnmbr, |
110 |
branchcode => 'LIB1', |
111 |
}; |
112 |
$rv = add_opac_new($href_entry3); |
113 |
is( $rv, 1, 'Successfully added the third dummy news item without expiration date!' ); |
114 |
|
115 |
# We need to determine the idnew in a non-MySQLism way. |
116 |
# This should be good enough. |
117 |
my $query = |
118 |
q{ SELECT idnew from opac_news WHERE published_on='2000-01-01' AND expirationdate='2999-12-30'; }; |
119 |
my ( $idnew1 ) = $dbh->selectrow_array( $query ); |
120 |
$query = |
121 |
q{ SELECT idnew from opac_news WHERE published_on='2000-01-01' AND expirationdate='2999-12-31'; }; |
122 |
my ( $idnew2 ) = $dbh->selectrow_array( $query ); |
123 |
|
124 |
$query = |
125 |
q{ SELECT idnew from opac_news WHERE published_on='2000-01-02'; }; |
126 |
my ( $idnew3 ) = $dbh->selectrow_array( $query ); |
127 |
|
128 |
# Test GetNewsToDisplay |
64 |
# Test GetNewsToDisplay |
129 |
my ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
65 |
my ( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
130 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
66 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |