|
Lines 72-78
my ( $title1, $new1, $lang1, $expirationdate1, $number1 ) =
Link Here
|
| 72 |
( 'News Title', '<p>We have some exciting news!</p>', q{}, '2999-12-30', 1 ); |
72 |
( 'News Title', '<p>We have some exciting news!</p>', q{}, '2999-12-30', 1 ); |
| 73 |
my $href_entry1 = { |
73 |
my $href_entry1 = { |
| 74 |
title => $title1, |
74 |
title => $title1, |
| 75 |
new => $new1, |
75 |
content => $new1, |
| 76 |
lang => $lang1, |
76 |
lang => $lang1, |
| 77 |
expirationdate => $expirationdate1, |
77 |
expirationdate => $expirationdate1, |
| 78 |
timestamp => $timestamp1, |
78 |
timestamp => $timestamp1, |
|
Lines 87-93
my ( $title2, $new2, $lang2, $expirationdate2, $number2 ) =
Link Here
|
| 87 |
( 'News Title2', '<p>We have some exciting news!</p>', q{}, '2999-12-31', 1 ); |
87 |
( 'News Title2', '<p>We have some exciting news!</p>', q{}, '2999-12-31', 1 ); |
| 88 |
my $href_entry2 = { |
88 |
my $href_entry2 = { |
| 89 |
title => $title2, |
89 |
title => $title2, |
| 90 |
new => $new2, |
90 |
content => $new2, |
| 91 |
lang => $lang2, |
91 |
lang => $lang2, |
| 92 |
expirationdate => $expirationdate2, |
92 |
expirationdate => $expirationdate2, |
| 93 |
timestamp => $timestamp2, |
93 |
timestamp => $timestamp2, |
|
Lines 102-108
my ( $title3, $new3, $lang3, $number3 ) =
Link Here
|
| 102 |
( 'News Title3', '<p>News without expiration date</p>', q{}, 1 ); |
102 |
( 'News Title3', '<p>News without expiration date</p>', q{}, 1 ); |
| 103 |
my $href_entry3 = { |
103 |
my $href_entry3 = { |
| 104 |
title => $title3, |
104 |
title => $title3, |
| 105 |
new => $new3, |
105 |
content => $new3, |
| 106 |
lang => $lang3, |
106 |
lang => $lang3, |
| 107 |
timestamp => $timestamp3, |
107 |
timestamp => $timestamp3, |
| 108 |
number => $number3, |
108 |
number => $number3, |
|
Lines 130-136
$rv = upd_opac_new(); # intentionally bad parmeters
Link Here
|
| 130 |
is( $rv, 0, 'Correctly failed on no parameter!' ); |
130 |
is( $rv, 0, 'Correctly failed on no parameter!' ); |
| 131 |
|
131 |
|
| 132 |
$new2 = '<p>Update! There is no news!</p>'; |
132 |
$new2 = '<p>Update! There is no news!</p>'; |
| 133 |
$href_entry2->{new} = $new2; |
133 |
$href_entry2->{content} = $new2; |
| 134 |
$href_entry2->{idnew} = $idnew2; |
134 |
$href_entry2->{idnew} = $idnew2; |
| 135 |
$rv = upd_opac_new($href_entry2); |
135 |
$rv = upd_opac_new($href_entry2); |
| 136 |
is( $rv, 1, 'Successfully updated second dummy news item!' ); |
136 |
is( $rv, 1, 'Successfully updated second dummy news item!' ); |
|
Lines 145-151
is_deeply(
Link Here
|
| 145 |
get_opac_new($idnew1), |
145 |
get_opac_new($idnew1), |
| 146 |
{ |
146 |
{ |
| 147 |
title => $title1, |
147 |
title => $title1, |
| 148 |
new => $new1, |
148 |
content => $new1, |
| 149 |
lang => $lang1, |
149 |
lang => $lang1, |
| 150 |
expirationdate => $expirationdate1, |
150 |
expirationdate => $expirationdate1, |
| 151 |
timestamp => $timestamp1, |
151 |
timestamp => $timestamp1, |
|
Lines 168-174
is_deeply(
Link Here
|
| 168 |
get_opac_new($idnew2), |
168 |
get_opac_new($idnew2), |
| 169 |
{ |
169 |
{ |
| 170 |
title => $title2, |
170 |
title => $title2, |
| 171 |
new => $new2, |
171 |
content => $new2, |
| 172 |
lang => $lang2, |
172 |
lang => $lang2, |
| 173 |
expirationdate => $expirationdate2, |
173 |
expirationdate => $expirationdate2, |
| 174 |
timestamp => $timestamp2, |
174 |
timestamp => $timestamp2, |